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Preface 



Many people look at game playing on a computer as a waste of time; 
unfortunately, they do not realize that this type of activity stimulates 
the user's interest in computers and program writing and helps him 
better understand computers. 

Games should never be considered a waste of time because if 
they do nothing else, they teach the user something within the realm 
of the game whether it be reaction, calculation, logical reasoning or 
use of mathematical ideas. 

Of course, the easiest way to learn about BASIC or about 
computers is to play with them, and games provide an excellent 
channel for this type of expression. 

I would like to thank Peter for all his help and advice, and 
especially thank Bill and Dan for their infinite patience with me. 

Ken Tracton 
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Section I 
Computer Games In BASIC 



This section contains 24 games in BASIC for your home computer. 
These games serve as exercises to increase your knowledge of 
programming in BASIC language and your working knowledge of 
what your computer can do. 

Some games are word games. Others are combat or chase 
games where you're on search and destroy missions. Number 
games include guessing games and plotting routines. Some games 
show graphics displays while others are designed to be of practical 

use. 

All games include a flowchart, sample run and program listing. 
All programs will run in 8K of memory (not including BASIC) except 
for Star Warp which requires 20K. 

Information is included on which programs can be used on a 
Radio Shack TRS-80 computer. Section II contains actual program 
listings for some of the games for a TRS-80 or PET^ 



WUMPUS 

The wumpus is asleep somewhere in his cave of 20 rooms. You 
must track him down and shoot him with one of your five arrows. 
The trick is in not getting eaten by the wumpus, being taken to 
another room by a super bat, or falling into a bottomless pit during 
the hunt. Also, be sure to avoid shooting yourself with an arrow! 



[start] 



INITIALIZE AND 
PRINT LOCATION 



MESSAGE 




SETUP 

NEW 
POSITION 



Flowchart for Wumpus 
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Sample Run 



INSTRUCTIONS? CY-N) 

'.'■' Y 

WELCOME TO 'HUNT THE WUMPUS' 

THE WUMPUS LIVES IN A CAVE OF 20 ROOMS ♦ EACH ROOM 
HAS 3 TUNNELS LEADING INTO OTHER ROOMS .(LOOK AT A 
DUODECAHEDRON TO SEE HOW THIS WORKS ■•■IF YOU DON'T KNOW 
WHAT A DUODECAHEDRON IS? ASK SOMEONE) 



HAZARDS 
BOTTOMLESS PITS* THERE ARE 2 OF THESE 
FALL INTO ONE? AND YOU WILL LAND IN CHINA 
SUPER BATS ••- TWO OTHER ROOMS HAVE SUPER BATS, IF YOU 

GO THERE? A BAT GRABS YOU AND TAKES YOU TO SOME OTHER 
ROOM AT RANDOM, (WHICH MIGHT BE TROUBLESOME) 

WUMPUS 
THE WUMPUS IS NOT BOTHERED BY THE HAZARDS (HE HAS SUCKER 
FEET AND IS TOO BIG FOR A BAT TO LIFT), USUALLY 
HE IS ASLEEP, TWO THINGS WAKE HIM UP? YOUR ENTERING 
HIS ROOM OR YOUR SHOOTING AN ARROW, 

'IF THE WUMPUS WAKES? HE MOVES (P-,75) ONE ROOM 
OR STAYS STILL. (P=,25), AFTER THAT? IF HE IS WHERE YOU 
ARE? HE EATS YOU UP ( 8 YOU LOSE!) 

YOU 
EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW 
MOVING I YOU CAN GO ONE ROOM (THRU ONE TUNNEL) 
ARROWS: YOU HAVE 5 ARROWS, YOU LOSE WHEN YOU RUN OUT, 
EACH ARROW CAN GO FROM 1 TO 5 ROOMS, YOU AIM BY TELLING 
THE COMPUTER THE ROOMYS TOU WANT THE ARROW TO GO TO, 
IF THE ARROW CAN'T GO THAT WAY (IE NO TUNNEL) IT MOVES 
AT RANDOM TO THE NEXT ROOM, 

IF THE ARROW HITS THE WUMPUS? YOU WIN, 

IF THE ARROW HITS YOU? YOU LOSE, 

WARNINGS 
WHEN YOU ARE ONE ROOMS AWAY FROM THE WUMPUS OR HAZARD) 
THE COMPUTER SAYS 
WUMPUS ■- 'I SMELL A WUMPUS' 
BAT •••• 'BATS NEARBY' 
PIT - 'I FEEL A DRAFT' 

HUNT THE WUMPUS 



YOU ARE IN ROOM 2 

TUNNELS LEAD TO 1 3 10 

SHOOT OR MOVE ? (S-M) 
? M 

OKAY? WHERE TO NOW? 
? 3 



I FEEL A DRAFT! 
YOU ARE IN ROOM 
TUNNELS LEAD TO 
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SHOOT OR HOME ? (S-tt) 

? M 

OKAY? WHERE TO NOW? 

? 4 

A PIT. CHINA HERE I COME !!!!!!! 

DUMMY? YOU LOSE* WUMPII JUST LOME YOU!!! 

SAME SET UP? (Y-N) 

? YES 

HUNT THE WUMPUS 



I SMELL A WUMPUS! 
YOU ARE IN ROOM .1.5 
TUNNELS LEAD TO 6 



(S-M) 



SHOOT OR MO YE 

? M 

OKAY* WHERE TO NOW? 

? .1.6 

YOU ARE IN ROOM 1.6 

TUNNELS LEAD TO 1.5 



(S-M) 



SHOOT OR MOVE 

? M 

OKAY? WHERE TO NOW? 

? 15 

I SMELL A WUMPUS! 

YOU ARE IN ROOM 1.5 

TUNNELS LEAD TO 6 



(S-M) 
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1.7 



1.4 



SHOOT OR MOVE 

? 14 

SHOOT OR MOVE ? (S-M) 

? M 

OKAY? WHERE TO NOW? 

? 14 

DUMMY? YOU BUMPED INTO A WUMPUS!! 

I SMELL A WUMPUS ! 

BATS NEARBY 

YOU ARE IN ROOM 14 

TUNNELS LEAD TO 4 13 

SHOOT OR MOVE ? (S-M) 

? S 

NUMBER OF ROOMS? (1-5) 
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16 



15 



ROOM #? 4 

ROOM'*? 13 

AHA 1 YOU GOT THE WUMPUS! 

OKAY HOT SHOT? THE WUMPII WILL GET THEIR REVENGE 

WUMPII SPIRITS WILL HAUNT YOU 'TILL THEN 

SAME SET UP? (Y-N) 

? NO 

HUNT THE WUMPUS 



I SMELL A WUMPUS! 
YOU ARE IN ROOM 18 
TUNNELS LEAD TO 9 

SHOOT OR MOVE ? (S-M) 

? S 

NUMBER OF ROOMS? (1-5) 



17 



19 
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Program Listing 



10 RfcM HUNT THE WUMPUS 

30 PRINf "INSTRUCTIONS? (Y-N)" 

40 INPUI IS 

50 IE I4s"N" THEN 70 

60 GOSIb 670 

70 OlM S(20,3> 

i80 FOR j=l To 20 

(90 FOR Kxl TO 3 

100 READ S(J t K) 

110 NfcXl K 

120 NEXT J 

131 DATA 2. 5,8,1, 3, 10, 2, 4, 12. 3, 5. 14, 1,4, 6 

140 DATA 5,7.15.6.8.17,1,7,9.8,10,18,2,9,11 

ISO DATA 10,12*19,3,1 1,13. 12. 14, 20.4, U, 15,6, u, 16 

160 DATA 15. 17. 20, 7, 16, 18, 9, 17, 19, 11, 18, ?0. 13. 16, 19 

170 DEF fNA (X) = INT (20»RNO(0) *1) 

180 OEF FNR(X)=lNl (3*KNU!0) *1) 

190 DEF FNC(X)=IM <4«RNU<0) *1> 

200 REM LOCATE L ARRAY ITEMS 

210 HEM l = YOU,2 = wOMPUS.344 = PlTS.S«.e = PAIS 

220 DIM L(6) 

230 DIM M(6) 

240 FOR J= 1 TO 6 

250 L(J) =FNA(0) 

260 M(J1 = L (J! 

270 NEXT J 

280 HEM CHECK FOR CROSSOVERS 

290 FOR J=l To 6 

300 FOR K=J TO 6 

310 IF J=K THEN 330 

320 If LIJI = L(K) THEN 240 

330 NEXT K 

340 NEXT J 

350 REM SET ARROWS 

36 A=5 

370 L=L<1> 

380 REM kUN THE GAME 

390 RKINI "HUNT THE WUMPUS" 

400 PRINT"--- ....____ ... 

410 REM HA2ARD WARNINGS AND LOCATIONS 

420 go sub io9o 

'430 REM MOVE ON SHOOT 

•440 GO SUB 1280 

'450 IF = 1 THEN 470 

460 IF C = 2 THEN 510 

470 GO SUB 1370 

480 IF F=0 THEN 420 

490 GO Tu 530 

500 REM MOVE 

510 GO SUB ;18«0 

520 IF FsO THFN 420 

530 IF F>0 THEN 580 

540 REM LOSE 

550 PHINP'DLMMY, YOU LOSE, WUMPII JUST LOVE YOUII1" 

560 GO Tu 600 

570 REM win 

580 PRINT»OKAY HOT SHOT, THE WUMPII WILL GET THEIR REVENGE" 

590 PHINT"WUMPH SPIRITS WILL HAUNT YOU MILL THEN" 

600 FOR jal To 6 

610 L(J)«M(J) 

'620 NEXT J 

630 PHINI "SAME SET UP? <Y-N)" 

640 INPL1 IS 

650 IF ho«yii THEN 240 

660 GO To 360 

670 REM INSTRUCTIONS 

680 PRINI "WELCOME TO 'HUNT 1RF WUMPUS"" 

690 PRINT " THE wUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" 

700 PRIM "HAS 3 TUNNELS LEADING INTO OTHER ROOMS. (LOOK AT A" 

710 PRINT'DLODECAHEORON TO SEE HOW THIS WORKS -IF YOU DONM KNOW 

720 PRIM "WHAT A OUODECAMEDRCN IS, ASK SOMEONE)" 
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730 PRIM 

740 PRIM" HAZARDS " 

750 PHINT"BOTTOMLESS HITS, THERE ARE 2 OF THESE" 
■ 760 PHINT"FALL 1NIO ONE, AND YOU WILL LAND IN CHINA" 
770 PRINT" SUPER HATS - TwO OTHER HOOMS HAVE SUPER BATS. IF YOU" 
7fl0 PHINT "GO THFHE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER" 
790 PHIM " ROOM AT RANDOM. (WHICH MIGHT BE TROUeLESOME ) " 
800 PRIM 

820 PKINt"" THE U *UMPUS IS NOT ROThEkFD BY THE HAZAROS (HE HAS SUCKER" 
BTO PRINI " FFET AND IS TOO BIG FOH A BAT to LIFT). USUALLY" 
S40 PHINT •• HF IS ASLEEP. TwO THINGS WAKF HIM UP, YOUR ENTERING" 
BCO PRIM " HIS ROOM OR YOUR SHOOTING AN ARROW." 

«M) PR Nl •• IF THE WUMPUS WAKES, HE MOVES (P*.7S> ONE ROOM" 
H70 PRIM " OR STAYS STILL (H».?S>. AFTER THAT, IF HE IS -HERE YOU" 
8fl0 PRIM " ARE, HF FATS YOU LP ! fc YOU LOSE!)" 
890 P«IM 

□ fin PRIM " YOU " 

910 PRINT " EACH TURN YOU MAY MOVF OP SHOOT A ChOOKED ARROW" 
q?0 PRINT " MOVING YOU CAN GO ONE ROOM (THRU ONE TUNNED" 
930 PHINT " ARROWS YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT " 
940 PR NT " FACH APROw CAN GO FRUM 1 TO 5 ROOMS. YOL AIM BY TELLING" 
ncn PRINT " THE COMPU1EH THE ROOM/S IOU WANT THE ARROW TO GO TO." 
Ill Pr!m " IF THE ARROW CAN'T GO THAT WAY (IE NO TLNNFL) IT MOVES" 
970 PRINT " AT RANDOM TO THE NEXT HOUM." 
qpO PRIM " IF THF ARROW HITS THE WUMPLS, YOU WIN." 
qqO PRINI " IF THF ARROW HITS YOU, YOU LOSE." 
1000 PRIM 

!o20 PRIM " "kHEnIcVaRE ONF ROOMS AWAY FROM THE wUMPUS OR HAZARD," 
1030 PRINI " THE COMPUTER SAYS " 
1040 PRIM " WUMPUS - 'I SMELL A WUMPUS'" 
1050 PRINT " HAT - 'HAIS NEARBY'" 
1060 PRIM " PIT - »I FEEL A UPAF I •" 
1070 PRIM " " 
10PO RETURN 

1090 HEM HRINT LOCATION AND HAZARD WARNINGS 
1100 PRINT 
1110 FOR J»i» In 6 
1120 FOR K=l TO 3 

1130 IF S(L(1),K! <>L(J) THEN 1?20 
1140 IF J»2 THEN 1170 
1150 IF J=3 OH J*<« THFN 1190 
1160 IF J = 5 OR J»6 THFN 1210 
1170 PRINT "I SMELL A WUMPUS!" 
1180 GO Tu 12?0 
1190 PRINI "I FEEL A DRAFT!" 
1200 GO TO 1220 
1210 PRIM"PATS NEARBY" 
1?20 NEXT K 
1230 NEXT J 

1240 PRINT "YOU ARE IN ROOM »!L(1) 

1250 PHIM "TUNNELS LEAD TO " ; S (L , 1 ) ,S (L ,2 ! , S (L , 3 ! 
1260 PRINT 
1270 RtTLRN 

12P0 REM CHOOSE OPTION 
1290 PKlNi "SHOOT OR MOVE ? (S-M)" 
130 INPUI I* 

1310 IF I*<>"S" THEN 1340 
132 0=1 
1330 RETURN 

1340 IF I4o"M" THtN 1290 
1350 0=2 
1360 RETURN 

1370 REM ARROW ROUTINE 
13A0 F=0 

1390 REM PATH OF ARROW 
1400 DIM P(5) 

1410 PRIM "NUMBER OF ROUM5? (1-S)« 
142U INPUI J9 

1430 IF J9<1 OR J9>5 THEN 1410 
1440 FOR K»l 10 J9 
1450 PRIM "ROOM *"l 
1460 INPUT P(K) 
1470 IF K< = 2 THEN 1510 
1480 IF P(K)<> P!K-?) THEN 01510 
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1490 PHINP'AHROWS ARE NOT SUPER MAGIC. BE REALISTIC' 

1500 GO To 1450 t«Ll3llt 

1510 NEXT K 

1520 REM SHOOT ARRUW 

1530 L=L(1) 

1560 FOB k»1 To J9 

1550 FOR Kl = l TO 3 

1560 IF S(L.Kl)eP(K! THEN 1720 

1570 NEXT Kl 

1580 REM NO TUNNEL FO" ARROW 

1590 L=S(L.FN8<1> ) 

1600 GO To n!>0 

1610 NEXT K 

1620 PRIM "MISSED" 

1630 L=L(1) 

1640 REM MOVE WUMPUS 

1650 GO SU8 1800 

1660 REM AMMO CHECK 

1670 A * A-l 

1680 IF A>0 THEN 1700 

1690 F=-l 

1700 RETURN 

1710 REM SEE IF ARRO* IS AT L<1> OR L<2) 

1720 l_*P(K) 

1730 IF L<>L(2) THEN 1770 

1740 PRIM "AHA! YOU GOT THE «UmpuS!» 

1750 F a 1 

1760 RETUkN 

1770 IF lOL(l) THEN 1610 

1780 PRIM "OUCH! 1 I ABRO* GOT YOU!" 

1790 GO To 1690 

1800 REM - MOVE *UMPUS ROUTINE 

1810 KsFNC(l) 

1820 IF k=4 ThfN 1840 

1830 L<2)=S(L<2) .*> 

1840 IF L (2!<>L THEN 1870 

1850 PWIM"«L.MPUS GOT YAIII, OLMMY!!!" 

I860 F a -1 

1870 RETUkN 

1880 REM MOVE ROUTINE 

1890 F=0 

1900 PkIM"OKAY. "HERE TO NO"?" 

1910 INPUT L 

1920 IF L<1 ON L>20 THEN 190U 

1930 FOR r»1 TO 3 

1940 REM CHECK IF LEGAL MOVE 

1950 IF S(L(l),K)sL THEN 201U 

1960 NEXT K 

1970 IF L=L(1) THEN ?010 

I960 PHINP'AKE YOU FOR REAL. IHAT'S NOT POSSIBLE" 

1990 GO Tu 1900 

2000 REM CHECK FOR HAZARDS 

2010 L(1)=L 

2020 REM *UMPUS 

2030 IF L<>L!2) THEN 2100 

2040 PHIM"I)UMMY. YOU HUMPED INTO A wUMPUSM" 

2050 REM - move KUMPUS 

2060 GO SUB 1010 

2070 IF F=0 Them ,iion 

2080 RETLkN 

2090 REM - PIT 

2100 IF L<>L!3! ANU L<>L(41 THEN 21b0 

2110 PR1NI"A PIT. CHINA HFRE I ' COME l!!!!!!" 

2120 F=-l 

2130 RETURN 

2140 HEM - BATS 

2150 IF L<>L(5) ANU L<>L(6) T«EN 2190 

2160 P«INT"SUPFH-BATS! I I GOOD-LUCK ! I ! ! ! I I " 

2170 L=FNA(1) 

2180 GO Tu 2010 

2190 RETURN 

2200 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 183 in Section II. 
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SUB HUNT 

This game pits you against a nuclear enemy sub lurking in 
nearby seas. The area of conflict is a 10 x 10 unit grid, and the 
enemy can dive down to a depth of 10 units. Figure 1-1 helps you 
visualize the playing area. 

Your mission is to destroy the sub. You have a limited number 
of depth charges. This number changes from game to game, but you 
always will have at least 16. 

To destroy the sub, you must place the charge not only on the 
right coordinate but also fused for the right depth. 




INPUT SHIP'S MOVE 



INPUT DEPTH CHARGE 



YES 




UPDATE SUB 

POSITION 
1 



NO-CHARGE 
MESSAGE 



Flowchart for Sub Hunt 
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Fig, 1 -1— The battle area is a 1 x 1 unit grid. You must place the depth charge 
on the right coordinate and also at the right depth. 
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Sample Run 

RUN 

SUB HUNT 

WELCOME TO THE GAHE OF SUB HUNT 

THE ENEflY SUB MAY BE LURKING 

ANYWHERE WITHIN THE GRID. 

TO COMPLICATE FINDING IT AND 

DESTROYING IT WITH DEPTH CHARGES-, 

THE SUB CAN ALSO DIVE. 

DEPTH CHARGES MAY BE DROPPED 

ANYWHERE ON THE GRID-, BUT 

THEY ARE NOT EFFECTIVE UNLESS 

THEY HAVE BEEN SET FOR THE RIGHT 

DEPTH. 

SINCE THE SUB CAN DIVE TO THE SEA 

BOTTOM-, SO CAN DEPTH CHARGES BE 

SET FOR THIS DEPTH-, ID IS THE SEA 

BOTTOM-, WHILE 1 IS THE SURFACE OF 

THE SEA. 

THE SUB'S POSITION WILL BE UPDATED 

AFTER EACH MOVE-, AS IT WAITS TO SEE 

WHAT YOUR MOVE IS- 

THE SUB-, BEING NUCLEAR POWERED CAN 

STAY AT ANY DEPTH-, FOR ANY PERIOD OF 

TIME. 

TO DESTROY THE SUB-, YOU MUST 

DROP THE DEPTH CHARGE NOT ONLY AT 

THE RIGHT COORDINATE! BUT IT MUST 

BE FUSED FOR THE RIGHT DEPTH. 

IF NOT-, YOU HAVE WASTED A DEPTH 

CHARGE. 

YOU HAVE A DISADVANTAGE AND AN 
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ADVANTAGE OVER THE SUB. 
THE DISADVANTAGE IS YOU'RE LIMITED 
TO THE NUMBER OF DEPTH CHARGES 
YOU HAVE-, SINCE YOU HAVE BEEN AT 
SEA SO LONG. 

THE ADVANTAGE IS THAT THE SUB CAN MOVE 
ONLY ONE SflUARE AT A TIME, AND ALSO 
IT CAN MOVE ONLY UP OR DOUN IN DEPTH 
ONE COORDINATE AT A TIME. 
GOOD LUCK-, COMMANDER. 

YOU-, COMMANDER-, ARE AT COORDINATES 1,1 
COMMANDER, WHERE DO WE SAIL FOR 
t 5,5 

COMMANDER, WHAT SETTING FOR DEPTH 
CHARGES A SETTING OF D RELEASES NO 
CHARGES 
t 5 

NELSON WOULD BE PROUD OF YOU 
YOU GOT THE DEVIL SUB... 
YOU STILL HAVE 1 DEPTH CHARGES 
TO PLAY AGAIN TYPE 1, OTHERWISE D 
?0 

THE COMPUTER KNEW YOU WERE A LANDLUB- 
BER. 
RUN COMPLETE. 
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Program Listing 

ID REM THE GAME OF SUB HUNT 

2D REM THE SUB HUNT IS PLAYED 

3D REM ON A ID X ID GRID WITH 

140 REM THE ORIGIN ON THE LEFT 

SD REM TOP CORNER. 

bO REM THE X AXIS READS FROM 

7D REN 1 TO ID GOING LEFT TO 

AO REM RIGHT-, THE Y AXIS READS 

TO REM FROM 1 TO ID GOING 

100 REM TOP TO BOTTOM-, THEREFORE 

110 REM COORDINATE 10 ,10 IS THE RIGHT 

120 REM LOWER CORNER OF THE GRID 

130 REM SUBS ARE CRAFTY, WATCH THEM 

140 REM CAREFULLY 

ISO PRINT 

IbO PRINT "SUB HUNT" 

170 PRINT 

IflO PRINT 

1TD PRINT "WELCOME TO THE GAME OF 
SUB HUNT" 

200 PRINT 

21D PRINT "THE ENEMY SUB MAY BE 
LURKING" 

220 PRINT "ANYWHERE WITHIN THE GRID-' 

23D PRINT "TO COMPLICATE FINDING IT 
AND" 

240 PRINT "DESTROYING IT WITH DEPTH 
CHARGES," 
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250 PRINT "THE SUB CAN ALSO DIVE." 

2b0 PRINT "DEPTH CHARGES HAY BE. 

DROPPED" 

270 PRINT "ANYWHERE ON THE GRID-, 

BUT" 

2S0 PRINT "THEY ARE NOT EFFECTIVE 

UNLESS" 

2^0 PRINT "THEY HAVE BEEN SET FOR 

THE RIGHT" 

3D0 PRINT "DEPTH." 

31Q PRINT "SINCE THE SUB CAN DIVE TO 

THE SEA" 

320 PRINT "BOTTOM-, SO CAN DEPTH 

CHARGES BE" 

33D PRINT "SET FOR THIS DEPTH-, ID IS 

THE SEA" 

3M0 PRINT "BOTTOM-, WHILE 1 IS THE 

SURFACE OF" 

3SD PRINT "THE SEA. ' ' 

3bD PRINT "THE SUB'S POSITION WILL 

BE UPDATED" 

37D PRINT "AFTER EACH MOVE-, AS IT 

WAITS TO SEE" 

3AQ PRINT "WHAT YOUR MOVE IS." 

BTO PRINT "THE SUB-, BEING NUCLEAR 

POWERED-, CAN" 
400 PRINT "STAY AT ANY DEPTH-, FOR 

ANY PERIOD OF' » 
410 PRINT "TIME." 
420 PRINT "TO DESTROY THE SUB, YOU 

MUST" 
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430 PRINT "DROP THE DEPTH CHARGE NOT 

ONLY AT" 
440 PRINT "THE RIGHT COORDINATES, 

BUT IT MUST" 
450 PRINT "BE. FUSED FOR THE RIGHT 

DEPTH. " 
4bQ PRINT "IF NOT, YOU HAVE WASTED A 

DEPTH. " 
470 PRINT "CHARGE." 
4fiO PRINT "YOU HAVE A DISADVANTAGE 

AND AN" 
4^0 PRINT "ADVANTAGE OVER THE SUB." 
SDD PRINT "THE DISADVANTAGE IS 

YOU'RE LIMITED" 
510 PRINT "TO THE NUMBER OF DEPTH 

CHARGES" 
SED PRINT "YOU HAVE-, SINCE YOU HAVE 

BEEN AT" 
530 PRINT "SEA SO LONG. " 
540 PRINT "THE ADVANTAGE IS THAT THE 

SUB CAN MOVE* * 
5SD PRINT "ONLY ONE SQUARE AT A TIME, 

AND ALSO* » 
SbO PRINT "IT CAN MOVE ONLY UP OR 

DOUN IN DEPTH" 
570 PRINT "ONE COORDINATE AT A TIME." 
5fiD REM AMOUNT OF DEPTH CHARGES 
STO CI = INT-CRND-C01 * 11} + lb 
bOO PRINT "GOOD LUCK, COMMANDER." 
t.10 PRINT 
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LEO PRINT "YOU-, COMMANDER-, ARE AT 

COORDINATES 1-.1" 

b30 PRINT 

bMO REM SET UP POSITION FOR SUB 

bSO A = INT-CRND-CO} * 10} + 1 

bbO B = INT-CRND-CO} * 10} + 1 

b70 D = INT-CRND-CO} * 10} + 1 

bflO REM A IS THE X AXIS 

L^O REM B IS THE Y AXIS 

700 REM D IS THE DEPTH 

710 REM SHIP'S STARTING COORDINATES 

7E0 XI = 1 

730 Yl = 1 

740 REM GET SHIP'S MOVE 

750 PRINT 

7b0 PRINT "COMMANDER-, WHERE DO WE 

SAIL FOR" 

770 INPUT X-.Y 

7AD REM TEST THAT X-.Y ARE NOT OUT OF 

BOUNDS 

7 c i0 IF X > 10 OR X < 1 THEN 350 

BOO IF Y > 10 OR Y < 1 THEN fiEO 

fllO GOTO 54D 

fiEO PRINT "COMMANDER-, STAY WITHIN 

THE GRID" 
630 GOTO 7S0 

fi40 XI = X 

fiSO Yl = Y 

fltO PRINT 

fl70 PRINT "COMMANDER-, WHAT SETTING 

FOR DEPTH CHARGES" 
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flflD PRINT "A SETTING OF D RELEASES 
NO CHARGES- " 

810 INPUT C 

100 IF C = D THEN IbO 

110 IF C > 10 OR C < 1 THEN 130 

120 GOTO 1430 

130 PRINT "COMMANDER-, THE SUB IS IN 
THE UATER" 

1M0 PRINT "NEITHER ABOVE THE SURFACE, 
NOR BELOU THE BOTTOM" 

ISO GOTO flbO 

IbO PRINT 

170 PRINT "THE SUB IS AT CO- 
ORDINATES:— * ' 

IflO PRINT "X = "^ A; "Y = "^ B 

110 PRINT "AND AT A DEPTH OF " ■-, D 
1000 REM NEU SUB POSITION 
1010 Al = INT-CRND-CO> * 5} 
1020 Bl = INT-CRND-CO} * E> 
1030 Dl = INT-CRND-COJ * 2} 
1040 REM CHECK FOR PROPER MOVE 
1050 REM GET NEGATIVE OR POSITIVE 

MOVE 
lObO (31 = INT-CRND-COJ * 2> 
1070 (32 = INT-CRND-COJ * 2} 
lOflO (33 = INT-CRND-COJ * 2} 
1010 IF (31 = 1 THEN 1120 
HOD (31 = -1 
1110 GOTO 1130 
1120 £31 = 1 
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1130 IF (32 = 1 THEN llbO 

1140 (32 = -1 

1150 GOTO 1170 

llbO QE = 1 

1170 IF (33 = 1 THEN 12D0 

HAD (33 = -1 

ino GOTO 1210 

1200 (33 = 1 

1210 IF A + CA1 * (313- > 10 OR A + -CA1 

* Ql> < 1 THEN 1240 
122D A = A + -CA1 * fl 1} 
1230 GOTO 12fl0 

124D IF A + -CA1 * (31> > 10 THEN 1270 

12SD A = 1 

12L0 GOTO 12fl0 

127D A = T 

12S0 IF B + -CB1 * (32} > 10 OR B + -CB1 

* (31} < 1 THEN 1310 
12*50 B = B + -CB1 * (32} 
1300 GOTO 13S0 

1310 IF B + -CB1 * CJ2} > 10 THEN 1340 

132D B = 1 

133D GOTO 1350 

1340 B = 1 

13SD IF D + -CD1 * (33} > 10 OR D + D 

■CD1 * (33} < 1 THEN 13fl0 

13b0 D = D + -CD1 * (33} 

1370 GOTO 1420 

13A0 IF D + -CD1 * 03} > 10 THEN 1410 

13T0 D = 1 
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14QQ GOTO 1420 
1410 D = ^ 

man goto ?so 

1430 IF X = A AND Y = B AND C = D 

THEN lb30 
1440 PRINT 
1450 PRINT "SORRYn COMMANDER-i UE 

HAVE HISSED" 
14L>0 CI = CI - 1 
14=10 IF CI >D THEN TbO 
1500 PRINT 
1S1D PRINT "SORRY-. COMIIANDERt NO 

MORE DEPTH CHARGES" 
1520 PRINT "UE CANNOT GET Hill WITH- 
OUT CHARGES" 
1S3D PRINT 
1540 PRINT "TO PLAY AGAIN TYPE 1, 

OTHERWISE D" 
1550 INPUT L 
15b0 IF L = 1 THEN IblD 
1S7D PRINT 
15A0 PRINT "THE COMPUTER KNEW YOU 

WERE A" 
ISID PRINT "LANDLUBBER..." 
IbOO STOP 

IblO PRINT 
lb20 GOTO 5flO 
lb3Q PRINT 

IbMD PRINT "NELSON WOULD BE PROUD 
OF YOU" 
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IbSD PRINT "YOU GOT THE DEVIL SUB." 
IbbQ PRINT "YOU STILL HAVE " h CH 

"DEPTH CHARGES" 
lt?D GOTO 1S3D 
1L5D END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 188 in Section II. 
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SINK THE BISMARK 

This is an exciting chase game with many messages from the 
computer to the captain. 

Both vessels can fire at each other. Your mission is to sink the 
enemy before the enemy sinks you. As you get closer, the damage 
done by the high explosive shells becomes more pronounced. 

Caution: the number of shells available for either ship is limited. 
The number of shells is picked at random by the computer, yet there 
is always a minimum of 20 shells initially available to each ship. 




Flowchart for Sink the Bismark 



SHELL 




ENEMY 



COMMANDER'S 
VESSEL 



Fig. 1 -2 — As the distance between vessels becomes closer, the effectiveness of 
the high-explosive shells increases. 
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INSTRUCTIONS ARE: — 

THIS IS THE GAME OF SINK THE BISMARK 

BOTH YOUR VESSEL AND THAT 

OF THE ENEMY HAVE HIGH 

EXPLOSIVE SHELLS. 

YOUR MISSION IS TO SINK THE ENEMY 

VESSEL BEFORE IT CAN SINK 

YOUR VESSEL. 

THE NUMBER OF SHELLS AVAILABLE 

FOR BOTH YOU AND THE ENEMY ARE 

RANDOM-, BUT BOTH VESSELS HAVE A 

MINIMUM OF ED SHELLS EACH. 

SHELLS ARE LESS EFFECTIVE AT LARGER 

DISTANCES. 

THE PRESENT DISTANCE IS NOU 1SDD 

WHAT IS YOUR COMMAND-, MOVE OR SHOOT 

ENTER M OR S 

f M 

SORRY-, COMMANDER-, YOU HAVE NO MORE 

SHELLS-. YOU BETTER RETREAT TO PORT-, 

NEXT TIME-, BE CAREFUL WITH YOUR FIRE 

POWER.. 

TO TRY AGAIN AND BE MORE 

UATCHFUL THIS TIME 

TYPE L TO TRY AGAIN-, D TO STOP 

?0 

I GUESS YOU'RE NOT READY TO 

TRY AGAIN, COMMANDER.. 

UELL MAYBE NEXT TIME.. 

RUN COMPLETE. 
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Profram Listing 

10 REM THIS PROGRAM PITS TWO 

DESTROYERS 
20 REM AGAINST EACH OTHER 
3D REM ONE VESSEL IS UNDER YOUR 

COMMAND 
40 REM THE OTHER IS UNDER COMPUTER 

CONTROL 
SO REM TO EVEN THE ODDS-i THE COMPUTER 

MUST 
L.0 REM USE RANDOM VARIABLES OR ELSE 

THE CONTEST 
70 REM WOULD DEFINITELY BE BIASED TO- 
WARDS THE 
flO REM COMPUTER. 
TO REM INITIALIZE VARIABLES 
100 REM ESTABLISH DISTANCE AT START 

OF GAME 
110 D = 1000 + INT-CRND-COJ * 5000} 
120 REM ESTABLISH NUMBER OF SHOTS 

AVAILABLE 
130 REM TO THE ENEMY 
1M0 S = INT-CRND-CO} * 25} + 20 
ISO REM ESTABLISH NUMBER OF SHOTS 

AVAILABLE TO 
lbO REM TO YOUR VESSEL 
170 SI = INT-CRNDCO} * 2S} + 20 
ISO V = 
no E = 
200 PRINT 
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SID PRINT TAB -C7K "DESTROYER" 

ESQ PRINT TAB -C7>i " " 

E3U PRINT 

E^D PRINT 

E5D PRINT "INSTRUCTIONS ARE:-" 

EbO PRINT 

E7D PRINT "THIS IS THE GAME OF SINK 

THE BISI1ARK" 
EflO PRINT "BOTH YOUR VESSEL AND 

THAT" 
ETD PRINT "OF THE ENEMY HAVE HIGH" 
3DD PRINT "EXPLOSIVE SHELLS." 
31Q PRINT "YOUR MISSION IS TO SINK 

THE ENEMY" 
3ED PRINT "VESSEL BEFORE IT CAN 

SINK" 
33D PRINT "YOUR VESSEL." 
3MD PRINT "THE NUMBER OF SHELLS 

AVAILABLE" 
3SD PRINT "FOR BOTH YOU AND THE 

ENEMY ARE" 
3bD PRINT "RANDOM-, BUT BOTH VESSELS 

HAVE A" 
37D PRINT "MINIMUM OF ED SHELLS 

EACH" 
3flD PRINT "SHELLS ARE LESS EFFECTIVE 

AT LARGE DISTANCES- " 
3=10 PRINT 

MOD PRINT "THE PRESENT DISTANCE IS 
NOU"}D 
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mo PRINT 

14ED PRINT "WHAT IS YOUR COMMAND-, 

MOVE OR SHOOT" 

^430 PRINT "ENTER M OR S" 

^^D input c$ 

1450 IF C$ = "M" THEN SDD 

MbO IF C* = "S" THEN 1A30 

M70 PRINT 

H&O PRINT "YOUR COMMAND MUST BE 

EITHER S OR M" 

M=)0 GOTO mo 

SOD PRINT 

510 PRINT "HOW FAR -C - = TOWARDS-, + 

= AWAY}" 

520 INPUT Dl 

530 IF D1/ABS-CD1} = 1 THEN SbO 

S^U D = D - ABS-CD1} 

550 GOTO 570 

5b0 D = D + Dl 

570 REM GET ENEMY SHOT 

SAO S = S - 1 

STO IF S < THEN 1ET0 

LOO REM (3 IS TEMPORARY VARIABLE 

blO & = RND-C10} 

b50 & = a - -CD / 500} 

b30 Q = ABS-Cc3> 

t,MO v = a + v 

LSO IF V > = 100 THEN 1510 

bbO IF V > 10 AND V < SI THEN 7T0 

b?0 IF V > 20 AND V < 31 THEN 830 
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hflD It" V > dU AND V < 41 THtN tiVU 

bTO IF V > 40 AND V < 51 THEN 120 

?DD IF V > bO AND V < 71 THEN TbO 

71D IF V > bO AND V < 71 THEN 1010 

720 IF V > 70 AND V < fll THEN lObO 

730 IF V > SO AND V < Tl THEN 1200 

7M0 IF V > TO AND V < 100 THEN 1250 

750 PRINT 

7b0 PRINT "THE ENEHY HAS NOU ONLY", 

Si "SHELLS'* 

770 PRINT "YOUR VESSEL HAS NOU ONLY 

"■t Sin "SHELLS" 

7fl0 GOTO 3T0 

710 PRINT 

ADO PRINT "CAUTIONi YOU'RE TAKING ON 

WATER" 

fllO PRINT "NO SERIOUS DAMAGE YET" 

320 GOTO 750 

B30 PRINT 

340 PRINT "THERE ARE A FEU SHALL 

FIRES" 

fiSO PRINT "BUT THEY ARE UNDER 

CONTROL" 

abO GOTO 750 

370 PRINT 

aflO PRINT "YOU ARE LISTING TO PORT 

5 DEGREES" 

a^O PRINT "UATER LEVEL IS STILL NOT 

DANGEROUS" 

TOO PRINT "CAUTION-, FIRES ARE 
SPREADING" 
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T1D GOTO 7SD 

T5D PRINT 

^30 PRINT "ENGINES ARE OVERHEATING 

AND" 
TMO PRINT "THE BILGE PUMPS ARE ACT- 
ING UP" 
TSD GOT 750 
TbO PRINT 

17D PRINT "MOST OF YOUR CREbJ IS" 
TfiO PRINT "SERIOUSLY HURT-, THE FIRES 

ARE" 
ilO PRINT "APPROACHING THE POWDER 
ROOM" 
1DDO GOTO 7SD 
1D1D PRINT 
1050 PRINT "THE LIFE BOATS ARE BEING 

READIED" 
1030 PRINT "SMOKE FILLS MOST OF THE 

CORRIDORS" 
IQiJD PRINT "BILGE PUMPS ARE NEAR 

FAILURE" 
1050 GOTO 7SD 
lObD PRINT 
1D7D PRINT "YOUR CREU IS ABANDONING 

SHIP" 
lOflO PRINT "THE BILGE PUMPS HAVE 

STOPPED' ' 
10TO PRINT "ONE ENGINE HAS BURNED 

OUT" 
HDD GOTO 750 
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1EDD PRINT 

1E10 PRINT "THE SHIP IS BURNINGi 

YOU HAVE" 
12E0 PRINT "PLACED THE SHIP ON 

AUTOMATIC" 
1E30 PRINT "YOU ARE LOSING 

STABILITY-i COMMANDER" 
l'SMD GOTO 7SD 
1ES0 PRINT 
lEbO PRINT "YOUR SHIP IS BADLY 

DESTROYED! THERE" 
1E70 PRINT "IS LITTLE HOPE, 

COMMANDER.. " 
lEflQ GOTO 750 
1ET0 PRINT 

13QD PRINT "THE ENEMY IS RETREAT- 
ING-." 
1310 PRINT "YOU HAVE WON THIS 

BATTLE" 
1320 PRINT 
1330 PRINT "COMMANDER-, YOU HAVE 

DON WITH"} SI 
13M0 PRINT "SHELLS LEFT ON YOUR 

VESSEL" 
13S0 PRINT 
13b0 PRINT "SINCE YOU ARE SUCH 

A GREAT COMMANDER" 
1370 PRINT "THE COMPUTER WANTS TO 

KNObl IF YOU" 
1360 PRINT "WANT TO FIGHT AGAIN." 
1310 PRINT 
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1M00 PRINT "TO HAVE ANOTHER BATTLE 

TYPE 1" 
1M1D PRINT "IF NOT TYPE 0" 
1420 INPUT L 
1430 IF L = 1 THEN 110 
1440 PRINT 
1MSD PRINT "OKAY GIVE UP WHILE YOU 

ARE AHEAD" 
14L0 PRINT 
1470 PRINT "THE COMPUTER SAYS 

GOODBYE" 
IMflO PRINT "THE ENEI1Y SAYS GOODBYE 

FRorr • 

14^0 PRINT "DAVY JONES LOCKER" 

1500 STOP 

1510 PRINT 

15S0 PRINT "YOUR VESSEL IS GOING 

DOWN' ' 
1530 PRINT "YOU BETTER GET INTO THE 

LIFE BOAT" 
1540 PRINT "HURRY-, CAPTAIN-. IF YOU 

ARE" 
1550 PRINT "GOING TO MAKE IT.." 
15b0 PRINT 
1570 PRINT "YOU LOST THIS TIP1E, DO 

YOU UANT" 
15S0 PRINT "TO TRY AGAIN-, 

COHHANDER?" 
15T0 PRINT 
IbOO PRINT "TYPE 1 TO TRY AGAIN, 

TO STOP" 



37 



17DD INPUT L 

1710 IF L = 1 THEN 177D 

17ED PRINT 

1730 PRINT "I GUESS YOU ARE NOT 

LULLING-.' * 
17H0 PRINT "WHO KNOWS-, PERHAPS YOU 

COULD HAVE" 
1750 PRINT "UON IF YOU HAD TRIED.. ' 
17b0 STOP 
177D PRINT 
1760 PRINT "THE COMPUTER IS HAPPY, 

YOU ARE" 
17^0 PRINT "OF THE FIGHTING TYPE" 
IflOO PRINT "BETTER LUCK NEXT TIME, 

COMMANDER. " 
IfllO PRINT 
IflEO GOTO 11D 
1A30 SI = SI - 1 
IflMQ IF S 1 < THEN lflbO 
IflSO GOTO 20M0 
IflbO PRINT 
1370 PRINT "STORY-, COMMANDER-, YOU 

HAVE NO MORE" 
IflflO PRINT "SHELLS-, YOU BETTER RE- 
TREAT TO PORT-," 
1ST0 PRINT "NEXT TIME-, BE CAREFUL 

WITH YOUR FIRE" 
1100 PRINT "POWER.." 
111Q PRINT 

11SD PRINT "TO TRY AGAIN-, AND BE 
MORE" 
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1^30 PRINT "WATCHFUL THIS TIME." 
1T40 PRINT "TYPE 1 TO TRY AGAINi D 

TO STOP" 
mo INPUT L 
ITSD IF L = 1 THEN 2010 
nbo PRINT 

117D PRINT "I GUESS YOU'RE NOT 
READY TO" 

nfiO PRINT "TRY AGAIN-, COMMANDER. . " 

VHD PRINT "WELL-, MAYBE NEXT TIME.." 

HDDD STOP 

2010 PRINT 

2020 PRINT "TRY HARDER THIS TIME 
COMMANDER." 

2030 GOTO 11D 

2D40 REM Q IS A TEMPORARY VARIABLE 

2050 (3 = RND-C10J 

20b0 (3 = (3 - -CD / 5001 

2070 Q = ABS-C<3> 

20B0 E = a + E 

20T0 IF E > = 100 THEN 2230 

21D0 IF E > 10 AND E < 21 THEN 23T0 

2110 IF E > 20 AND E < 31 THEN 2430 

2120 IF E > 30 AND E < Ml THEN 24B0 

2130 IF E >HD AND E < 51 THEN 2540 
2140 IF E > 50 AND E < bl THEN 2SS0 
2150 IF E > bO AND E < 71 THEN 2b3D 
21b0 IF E > 70 AND E < fil THEN 2bflO 
2170 IF E > flO AND E < 11 THEN 2740 
21flO IF E > TO AND E < 100 THEN 2300 
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E1TD PRINT 

22DD PRINT "THE ENEMY IS TAKING ON 

WATER" 
221D PRINT "THERE SEEMS TO BE SOME 

SMOKE" 
222D GOTO S7D 
223Q PRINT 
22M0 PRINT "YOU HAVE DESTROYED THE 

ENEMY" 
2250 PRINT "VESSEL.." 
22b0 PRINT 
227D PRINT "SINCE YOU ARE SO GOOD AT 

THIS" 
22flD PRINT "WHY DONT YOU TRY AGAIN" 
22TQ PRINT "TYPE 1 TO CONTINUE-, D 

TO STOP" 
23DD INPUT L 
231D IF L = 1 THEN 23b0 
232D PRINT 
233D PRINT "GUESS YOU ARE TIRED 

FROM THE" 
23^40 PRINT "BATTLE-, COMMANDER" 
23SD STOP 
23bD PRINT 
237D PRINT "HOPE YOUR LUCK HOLDS 

OUT" 
23AD GOTO 11D 
23T0 PRINT 
2MDD PRINT "THE ENEMY SHIP IS LOSING 

GROUND.. " 
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2M1D PRINT "ALREADY THERE ARE SMALL 

FIRES" 
2M20 GOTO 570 
2M30 PRINT 

2^0 print "looks like some of the 

OTHER" 
2L450 PRINT "VESSEL'S CREId ARE 

LEAVING" 
2^0 PRINT "IN LIFE BOATS, 

COMMANDER" 
2M70 GOTO S7D 
EH&Q PRINT 
24 ^0 PRINT "COMMANDER, THE RADIO 

ROOM HAS" 
2500 PRINT "PICKED UP COMMUNICATIONS 

FROM" 
2510 PRINT "THE ENEMY, RADIOING TO 

SAY IT IS" 
2520 PRINT "TAKING ON WATER 

(3UICKLY." 
2530 GOTO S7D 
2SM0 PRINT 
2550 PRINT "THE ENEMY STILL HAS NO 

SERIOUS DAMAGE" 
25b0 PRINT "BUT SHE SURE IS TAKING 

ON WATER.' * 
2570 GOTO 570 
2560 PRINT 

2510 PRINT "THE OTHER SHIP SEEMS TO 
HAVE SOME" 
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EbOO PRINT "FIRES NOW-, BUT THEY 

SEEM TO BE" 
EblD PRINT "UNDER CONTROL." 
EbEO GOTO 570 
2b30 PRINT 
2fa»t0 PRINT "THE ENEMY IS LISTING 

SERIOUSLY" 
EbSD PRINT "IT CANNOT LAST MUCH 

LONGER. " 
EbbD PRINT "KEEP IT UP-, COMMANDER." 
Eb7D GOTO S7D 
EbflO PRINT 
2bTD PRINT "COMMANDER-, THE ENEMY 

HAS LOST" 
E7DD PRINT "ALL MOTIVE POWER" 
E710 PRINT "IF WE KEEP ON SHOOTING 

WE'LL" 
E7E0 PRINT "GET HER. " 
S730 GOTO S7D 
27^3 PRINT 
E7SD PRINT "MOST OF THE ENEMY'S 

CREW" 
E7bD PRINT "HAS LEFT ON LIFE BOATS." 
E77D PRINT "A FEU MORE ACCURATE 

SHOTS" 
E7flD PRINT "AND WE'LL GET HER SUNK." 
E7TD GOTO S7D 
EaDD PRINT 
EfllQ PRINT "SHE CAN'T TAKE MUCH 

MORE-," 
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EflSD PRINT "COMMANDER-, IT LOOKS 

LIKE THE" 
2S3D PRINT "ENEMY IS GOING DOWN-, 

PROBABLY" 
2140 PRINT "TO JOIN DAVY JONES 

LOCKER" 
5A50 GOTO 570 
EflbD END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 191 in Section II. 
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MOUSE HUNT 

Your object is to squash the obnoxious mouse. You do this by 
hops, but the mouse also can hop away. The size of the hop is 
random, but you can choose the direction. 

The computer also will tell you where the mouse is in relation to 
your initial point on a graph where x and y = $. If you catch 
him— SPLATTH! goes the mouse. 

e 



HEADER 



Flowchart for Mouse Hunt 



SET UP LOCATIONS 
AND SPEED 



OUTPUT 
MOUSE HOP 



INPUT YOUR 
HOP 




HOW FAR 
MESSAGE 



ZAPPED MOUSE 
MESSAGE 



OUTPUT NUMBER 
OF TRIES 



YES 
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Sample Run 

THIS PROGRAM ALLOWS YOU TO GO ON A MOUSE HUNT 
FOR A VERY OBNOXIOUS MOUSE 
THE MOUSE TRIES TO DO OGE YOU BY HOPPING 
RANDOMLY .. , 4 . irf% 

YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANDS 
YOU CAN CHANGE DIRECTION TOO 

YOU HAVE TO GET WITHIN 67 FEET OF THE MOUSE TO 'KETCH' IT 
HOP SIZES DA MOUSE 90 YOUSE 270 

THE COMPUTER SAYS J I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSE? DROP DEAD - TURKEY 
FROM THE COMPUTER J KEEP IT CLEAN BOYS 



TRY # 1 

THE MOUSE IS 583,216 FEET AWAt 

AT LOCATION -450 BY -3 71 

AND TOOK OFF AT AN ANGLE OF 157 DEGREES 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 225 

TRY # 2 

THE MOUSE IS 371,368 FEET AWAY 

AT LOCATION -532,845 BY -335,834 

AND TOOK OFF AT AN ANGLE OF 353 DEGREES 

YOU ARE 

AT LOCATION -190,919 BY -190,919 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 270 

T pV I' "^ 

THE MOUSE IS 277,179 FEET AWAY 

AT LOCATION -443,516 BY -346,802 

AND TOOK OFF AT AN ANGLE OF 185 DEGREES 

YOU ARE 

AT LOCATION -190,919 BY -460,919 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 135 

I R Y ♦ 4 

THE MOUSE IS 173,4 FEET AWAY 

AT LOCATION -533.174 BY -354,646 

AND TOOK OFF AT AN ANGLE OF 158 DEGREES 

YOU ARE 

AT LOCATION -381,838 BY -270, 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 170 



TRY # 5 

THE MOUSE IS 102,647 I- LEI AWAY 

AT LOCATION -616.62 BY -320,932 

AND TOOK OFF AT AN ANGLE OF 285 DEGRE 

YOU ARE 

AT LOCATION -647,736 BY -223,115 



45 



OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP'? 270 

SPLAT! ! ! ! 

YOU GOT IT 

BOY WHAT A HESS •■■■ SQUASHED MOUSE EVERYWHERE 

Y U T K 5 T R I E S T ' K E T C H ( U p ) ' THE MO U S E 

WANT TO TRY AGAIN'! 1 ( YES/NO ':> " YES 

YOU HAVE TO GET WITHIN 314 FEET OF THE MOUSE TO 'KETCH 

HOP SIZES DA MOUSE 130 YOUSE 260 



IT 



THE COMPUTER SAYS? I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 



FROM THE MOUSES DROP DEAI 
FROM THE COMPUTER i KEEP 



■- TURKEY 
T CLEAN BOYS 



TRY # l 

THE MOUSE IS 614,357 FEET AWAY 

AT LOCATION --453 BY 415 

AND TOOK OFF AT AN ANGLE OF r* DFGRFFS 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS ■■•■ YOURE NOT EVEN CI OSF 

WHAT DIRECTION DO YOU WISH TO JUMP? 135 

SPLAT ! ! ! ! 

YOU GOT IT 

BOY WHAT A MESS •••• SQUASHED MOUSE EVERYWHERE 

Y U 'l K 1 T R I E S T ' K E T C H ( U P ) ' T H E M U S E 

WANT TO TRY AGAIN? (YES/NO > ? YES 

YOU HAVE TO GET WITHIN 238 FEET OF THE MOUSE TO 'KETCH' IT 

HOP SIZES DA MOUSE 130 YOUSE 260 



THE COMPUTER SAYS; I WISH YOU GREAT FORTUNE IN YOUR ENDEAVOR 
FROM THE MOUSES DROP DEAD - TURKEY 
FROM THE COMPUTER ; KEEP" IT CLEAN BOYS 



TRY # 1 

THE MOUSE IS 670,343 FEET AWAY 

AT LOCATION •■472 BY 476 

AND TOOK OFF AT AN ANGLE OF 160 DEGREES 

YOU ARE 

AT LOCATION BY 

OWWW THAT HURTS - YOURE NOT EVEN CLOSE 

WHAT DIRECTIO'iN DO YOU WISH TO JUMP? 135 



TRY # 2 

THE MOUSE IS 530,722 FEET AWAY 

AT LOCATION •-594-16 BY 520,463 

AND TOOK OFF AT AN ANGLE OF 144 DFGRF 

YOU ARE 

AT LOCATION --133,848 BY 183,848 

OWWW THAT HURTS ••- YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP""? 150 
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TRY # 3 

THE MOUSE IS 405,449 FEET AWAY 

AT LOCATION -699,332 BY 596,875 

AND TOOK OFF AT AN ANGLE OF 204 DEGREES 

YOU ARE 

AT LOCATION ••••409,014 BY 313,848 

OWWW THAT HURTS -■■ YOURE NOT EVEN CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 180 

TRY # 4 

THE MOUSE IS 274,215 FEET AWAY 

AT LOCATION ■•••818,093 BY 543,999 

AND TOOK OFF AT AN ANGLE OF 119 DEGREES 

YOU ARE 

AT LOCATION •-669,014 BY 313,848 

MISSED AGAIN-- BUT PRETTY CLOSE 

WHAT DIRECTION DO YOU WISH TO JUMP? 135 

SPLAT! ! ! ! 

YOU GOT IT 

BOY WHAT A MESS - SQUASHED MOUSE EVERYWHERE 

Y U T K 4 T R I E S T "' K E T C H < U P ) ' T H E M U S E 

WANT TO TRY AGAIN? < YES/NO ) ? NO 



RUN COMPLETE, 



Program Listing 

100 HEM CHANGF A MOUSE 

200 PRIM "THIS program allocs you to go on a mouse HUNT " 

300 PRINT "FOR A VERY OBNOXIOUS MOUSE " 

400 PRINT "THE MOUSE TRIES TC DO UGE YOU BY MOPPING " 

500 PRINT "RANDOMLY " 

600 PRINT "YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANDS " 

700 PRIM "YOU CAN CHANGE OlhFCTlON TOO " 

800 PRINT 

900 T«RNU(0)*1000 
1000 T*INT(T) 
1100 PRINT "YOU HAVE TO GFT WITHIN "|T» " FEET OF THE MOUSE 

TO 'KETCH' IT »' 
1200 T»T*1 
1300 REM SET UP THE LOCATIONS AND SPEEDS 

1400 REM IQ "KETCH " THE MOUSE 

1500 REM YOU ARE THE FOX 

1600 H1«INT(HND(0)«10*.5)*10*50 

1700 R2*(INT(RND(0)«2*.5) ♦1>»R1 

1800 Kl«RND(0) 

1900 K2»RnD(0) 

2000 IF Kl>.5 THEN 2300 

2100 Kl — 1 

2200 GOTO 2*00 

2300 Kl«l 

2400 IF K2>.5 THEN 2700 

2500 K2«l 

2600 GOTO 2600 

2700 K2—1 

2800 Q1»INT(RND(0>»400*100) 

2900 Q1»Q1«K1 

3000 Q2*INT(RND(0)*400*100) 

3100 Q2»G2*K2 

3200 IF U2»0 OR U1*0 THEN 1800 

3300 Q3»0 
3400 Q4»0 

3500 PRINT "HOP SIZES "• "DA MOUSE "iRli "YOLSE M »R2 
3600 PRINT 

3700 PRINF "THE COMPUTER SAYS I WISH YOU GREAT FORTUNE IN 
YOUR ENOEAVOR " 

3800 PRINT "FROM THE MOUSE QRQP DEAD - TURKEY » 

3900 PRINT "FROM THE COMPUTEn KEEP IT CLEAN BOYS " 

4000 PRIM 

4100 Pl«3. 14159254/180 

4200 K3*l 

4300 Z1»(U3-U1 )»(Q3-01 ) ♦ (Q4-Q2 ) • (U4-U? ) 

4400 REM 

4500 REM PRINT A CYCLE 

4600 REM 

4700 PRIM 

4800 PRIM "TRY « ",K3 

4900 PRIM "THE MOUSE IS »|SQR(Z1)» " FEET AwAY " 

5000 PRINT "AT LOCATION "»U1> " BY "tQ2 

5100 D1»INT(RND(0)*359) 

5200 IF Zl<sT THEN 5400 

5300 PRIM "AND TOOK OFF AT AN ANGLE OF "1011 " DEGREES " 

5400 PRINT "YOU ARE " 

5500 PRIM "AT LOCATION 'MQ3* •' BY "»U4 

5600 IF 2l>2«T THEN 6200 ___ 
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5700 IF Z1>T THEN 6400 
5800 PHIM "SPLAT 1 ! i ! 



5900 PRINT "YOU GOT IT " 

6000 PRINT "BOY "HAT A l*ESS - SQUASHED MOUSE EVERYWHERE " 

6100 GOTO 8800 

6200 PHIM »'OWWW THAT HURTS - YOURE NOT EVEN CLOSE " 

6300 GOTO 6500 

64 00 PHIM "MISSED AGAIN- BUT PRETTY CLOSE " 

6500 PHIM "WHAT DIRECTION DO YOU WISH TO JUMP'M 

6600 INPUT 02 

6700 IF D2>*0 AND D2<»360 THEN 7000 

6800 PRIM "BFTWEEN AND 360 DEGREES ONLY " 

6900 GOTO 6500 

7000 Q5«R1«COS(D1«P1)/100 

7100 Q6aHl*SIN(Dl*Pl)/100 
7200 Q7aH2*COS(D2«PD/100 
7300 08«H2*SIN(02«P1)/100 
7400 Cl»Zi 
7500 C2*Z1 

7600 FOR !■! TO 100 

7700 Q1«Q1*Q5 
7800 Q2*Q2*Q6 
7900 Q3»Q3*U7 
8000 Q4sQ4*Q6 
8100 C2«(-3-Gl)*<G3-Ul) ♦ (Q4-Q2 ) » (U4-U?) 

8200 IF C*>C1 THEN 08400 

8300 CUC2 
8400 NEXT I 



8500 IF C1<»T THEN 5S00 

8600 K3»K3*1 

8700 GOTO 4300 

8800 PRINT "YOU TUOK "|K3» " TRIES TO »KETCH(UP)« 

THE MOUSE " | 

8900 PRINT "WANT tO TRY AGAIN? (YES/NO) "1 

9000 INPUT AS 

9100 IF Ai*"YES" THEN 900 

9200 IF A*<>"NO" THEN 8900 

9300 STOP 

9400 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 194 in Section II. 
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CAPTURE THE ALIEN 

Capture the Alien is a slightly different version of the famous 
Star Trek games. Instead of killing off the baddies, we capture them. 
To capture the enemy vessel, you must destroy all the regions 
around it, using phaser power. The Battle Computer will keep you 
up to date on how you are doing. 

There is a protected area where the alien first enters your 
sphere of influence, namely the x axis = land they axis = 1. Firing 
in there is like firing at an already destroyed region. But remember, 
your mission is to capture the enemy vessel. If you zap the alien by 
mistake, watch out. The computer gets mad. 



fi. 



SET UP 
MATRIX 



GET PLAYERS 
PHASER SHOT 




DISPLAY 
STATUS 



YES 



MESSAGE 



YES 



MESSAGE 



-0 



Flowchart for Capture the Alien 
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Sample Run 



ENTER YOUR NAME FOR THE GALACTIC RECORDS 
? KEN 

INSTRUCTIONS KEN <1=YESj- 2 = N0) 

? 1 



YOUR MISSION COMMANDER KEN IS TO CAPTURE 

AN ENEMY BATTLE VESSEL. YOU MUST NOT DESTROY 

THE ENEMY? YOU MUST TAKE HIM ALIVE. 

TO EFFECT A CAPTURE. YOU MUST DESTROY A! I 

REGIONS AROUND IT. THE INBOARD BATTI F-DEFFNSF 

COMPUTER WILL KEEP YOU UP-TO-DATE ON THF 

ENEMY'S LAST POSITION 

THERE IS ALSO A PROTECTED 

AXES X=l AND Y=l, SO THAT 

YOU FIRE INTO THIS REGION 



AREA USING THE 
THE ALIEN HAS A 
tlT IS THE SAME 
INTO A PREVIOUSLY DESTROYED AREA! !!!!!!! i 



CHANCE 
AS FIRING 



GOOD-LUCK COMMANDER KEN 



COMMANDER KEN YOU HAVE 



SHOTS 



ENEMY'S LAST KNOWN POSITION 
SECTOR 3 , 1 



* 


* 


* 


* 


* 


* 


* 


':> 


* 


* 


* 


* 


* 


* 


* 


3 


* 


* 


* 


* 
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* 
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* 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 



3 4 



6 7 8 



ENTER YOUR PHASER SHOT -<X»Y)? 2»2 

ENEMY'S LAST KNOWN POSITION 
SECTOR 4 f 2 





* 


* 


* 


* 


* 


* 


2 


* 


* 


* 


* 


* 


* 


* 


3 


* 


* 


* 


* 


* 
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* 


* 


* 


* 


* 


* 


5 


* 


* 


* 


* 


*- 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 


1 


3 


4 


5 


6 


7 


8 





51 



COMMANDER' KEN YOU HAVE BEEN ATTACKED 
E NEE 1 BY USED TO REPLENISH SHIELDS 
COMMANDER KEN ONLY 23 SHOTS REMAIN 

ENTER YOUR PHASER SHOT (X»Y)? 4?3 



ENEMY'S LAST KNOWN POSITION 
SECTOR 5 , 3 





* 


* 


* 


* 


* 


* 


2 


* 


* 


* 


* 


* 


* 


* 


3 


* 




* 


* 


* 


* 
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* 


* 


* 


* 


* 


* 


* 


b 


* 


* 


* 


* 


* 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


# 


* 


* 


* 


8 


*? 


3 


4 


b 


6 


7 


S 





COMMANDER KEN YOU HAVE BEEN ATTACKED 
ENERGY USED TO REPLENISH SHIELDS 
COMMANDER KEN ONLY 21 SHOTS REMAIN 

ENTER YOUR PHASER SHOT (X»Y>? 6.3 



ENEMY'S LAST KNOWN POSITION 
SECTOR 4 , 4 





* 


* 


* 


* 


* 


* 


2 


* 


* 


* 


* 


* 


* 


* 


3 


* 




* 


* 


* 


* 


* 


4 


* 


* 


* 


* 


* 


* 


* 


b 


* 




* 


* 


* 


* 


* 


6 


* 


* 


* 


* 


* 


* 


* 


7 


* 


* 


* 


* 


* 


* 


* 


8 


o 


3 


4 


5 


6 


7 


8 





ENTER YOUR PHASER SHOT <X»Y)? At\ 



ENEMY'S LAST KNOWN POSITION 
SECTOR 3 t 5 





* 


* 


* 


* 


* * 


i 


* 


* 


* 


* 


* 


* * 


3 


* 




* 




* 


* * 


4 


* 


* 


* 


* 


* 


* * 


b 


* 




* 


* 


* 


* * 
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* 


* 


* 


* * 


7 


* 


* 


* 


* 


* 


* * 


8 


2 


3 


4 


b 


6 


7 8 





ENTER YOUR PHASER SHOT <X»Y>? 
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ENEMY'S LAST KNOWN POSITION 
SECTOR 2 * 6 





* 


* 




* 


* * 


2 


* 


* 


* 


* 


* 


* * 
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* 




* 
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* * 
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* * 
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* 
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* 


* * 
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* 


* 


* 


* 


* * 


7 


* 


* 


* 


* 


* 


* * 


8 


':> 


3 


4 


5 


6 


7 8 





:l. 

ENTER YOUR PHASER SHOT <XrY>? 2,7 

COMMANDER KEN 

DID YOU EVER BLOW IT THIS TIME 

YOU 'ZAPPED THE ALIEN! !!!!!!!!! 

YOUR "MISSION WAS A TOTAL. WASTE OF TIME 

FOR YOU AND THE EMPIRE 



RUN COMPLETE 



Program Listing 



10 HEM LETS CAPTURE A ENEMY VESSEL 

20 REM INSTEAD OF PFSTROYTNG HTM 

30 

40 DIM U<9.9> 

50 PRINT 

60 PHINT»ENTfR YOUR NAME FOR THE GALACTIC RECORDS" 

70 INPUT AS 

80 S=25 . 



90 PRIM 
100 PHINT««INSTRUCTI0NS »|A$t" <l=YtS, 2*N0)" 

110 INPUI C 

120 if c<>i then 290 

130 PRINT 

140 PRTN T"YOUR MISSION COMMANDER ">A$t" IS TO CAPTURE" 

150 PRlNT"AN FNEMY BATTLE VESSEL. YOU MUST NOT DESTHOY" 

160 PRINT"THE ENEMY. YOU MUSI TAKE HIM ALIVE." 

170 PRINT"TO EFFECT A CAPTURE. YOU MUST DESTROY ALL" 

180 PRINT"REGI0NS AROUND IT. THE INBOARD BATTLE-DEFENSE" 

190 PRINT"COMPUTER \*ILL KEEP YOU UP-TO-DATE ON THE" 

200 PRINT»ENEMY'S t AST POSITION" 



210 PRINP'THERE IS ALSO A PROTECTED AREA USING THE" 

220 PNINP'AXES X»l AND Y«l, SO THAT THE ALIEN HAS A CHANCE" 

230 PRINT"YOU FIRE INTO THIS REGION ,IT IS THE SAME AS FIRING" 

2*0 PRINP'INTO A PREVIOUSLY DESTROYED AREA I I I I I t 1 I I •• 

250 PRINT 

260 PRINT"GOOn-LUCK COMMANDER 'MAS _ 

270 PRINT ~~ 

280 PRINT 

290 PRINP'COMMANDER "JASl" YOU HAVE "|S»" SHOTS" 

300 FOR X«l TO 9 

310 FOR Y«l TO 9 

320 Q(Y.X>»0 
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330 
340 
350 
360 
370 
380 



Q<1.X)»-1 
Q(9tX)*-l 
Q(Yil)a-l 
Q(Yi9)«-l 
NEXT Y 
NEXT X 



390 X*INT(10*RND<0) ) 
400 IF X<1 THEN 390 
410 IF X>8 THEN 390 
420 Y»INT(10*RNO(0> ) 
430 IF Y<1 THEN 420 
440 IF Y>8 THEN 420 



450 PHINT 

460 PNINT'»ENEMY'S LAST KNOWN POSITION" 

470 PHINT»SECT0R "IXi" , •• | Y 
480 PHINT 

490 if s<«o then 1310 

500 C«X 

510 D«Y ~~ 

520 A«INT(10«RND<0-) ) 

530 IF A<C THEN ,550 

540 GOTO 560 

550 X-X-i 

560 IF A>C THEN 580 



570 
580 



GOTO 
XsX*j 



590 



590 
600 
610 
620 
630 
640 
650 
660 
670 

6eo 

690 
700 



IF X<1 THFN 

GOTO 620 

X»l 

IF X>8 THFN 

GOTO 650 

X»8 



610 



640 



A*IN? (10*RN0(O) ) 

IF A<0 THFN 680 

GOTO 690 

YsY-l 

IF A>D THFN 710 

GOTO 720 



710 
720 
730 
740 
750 
760 



Y-Y* 
IF Y 
GOTO 
Y = l 
IF Y 
GOTO 



1 

<1 THFN 740 
750 

>8 THFN 770 
780 



770 Y=8 

780 IF (J(Y,X)<>-1 THFN 00820 

790 X»C 

800 Y»0 

810 GOTO 

820 FOR 



520 

A»l TQ 8 

830 FOR ttal TO 8 

840 IF G(8ifi)=0 THEN 360 

850 GOTO 00870 

860 PHINT" ";"»"! 

870 IF Q(8tA)s-l THEN 890 

880 GOTO 900 



890 
900 
910 
920 
930 
940 



PHIN 
NEXT 
PHIN 
NEXI 
PHIN 
PHIN 



950 
960 



A = IN 
IF A 



it; it m ; 

"I A 

12 3 4 5 6 7 8" 



10*RND(0) ) 
THFN 01020 
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970 PHIMMCOMHANDER "»A$;» YOU HAVE BEEN ATTACKED" 

980 PKINP'ENERGY USED TO REPLENISH SHIELDS " 

,990 S=S-1 

1000 PRINP'COMMANOER "{ASP* ONLY "tS8" SHOTS REMAIN" 

1010 RHIM 

1020 A»INT (10*RND(0) ) 

1030 IF A<9 THEN 01150 

1040 A=INT(10*RNO(0) ) 

1050 if AaX then 1040 

1060 IF A<1 THEN 1040 

1070 IF A>8 THEN 1040 

1080 9»INT <10*RND(0) ) 

1090 IF BsY THEN 1080 

1100 IF B<1 THEN 1080 

1110 IF 6>8 THEN 1080 

1120 Q(B»A)a-l 

1130 PHIMP'NOVA IN SECTOR " J A J" , "?b 

1140 PRIM 

1150 PRINP'EnTfR YOUR PHASER SHOT (A.Y)"5 

1160 INPUT Af8 

1170 S*S-i 

1180 IF AaX AND B*Y THEN 1340 

1190 IF Q(8»A)»-1 LHEN 1400 

1200 Q(B.A)a-l 

1210 FOR AaX-1 TO X*l 

1220 FOR daY-1 TO Y*l 

1230 IF A=X AND B=Y THEN 1250 

1240 IF G(BfA)<>-l THFN 450 

1250 NEXT B 

1260 NEXT A 

1270 PRINP'GOOD SHUW COMMANDEN "JA$ 

1280 PRINP'YOU HAVE CAPTURED IHE ALIEN ENEMY" 

1290 PKIM"AND YOU HAVE " I S I «• SHOTS KEMAINING" 

1300 STOP 

1310 PHIM'«COMMANDER 'MAS 

1320 PHINP'YOU HAVE NO MORE ENERGY FOR PHASERS" 

1330 GOTO 1370 

1340 PHIM»COMMANDhR "IAS 

1350 PRINP'OID YOU EVER BLOw IT THIS TIME" 

1360 PHINP'YOU ZAPPED THE ALIEN ! ! I ! 11 « ! ! ! " 

1370 PHIM"YOUR MISSION WAS A TOTAL WASTE OF TIME " 

1380 PHINP'FOR YOU AND THE EMPIRE" 

1390 STOP 

1400 PHINP'COMMANDER "»A* 

1410 PRINP'GOOD-SHOT, YOU FIRED ON A PREVIOUSLY DESTROYED 

AREA" 
1420 PRINP'TURKEY" 
1430 GOTO 450 
1440 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 196 in Section II. 
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STAR WARP 

Star Warp is an interactive program like Star Trek, except that 
instead of graphs being drawn, dialogue goes on between crew 
members. This type of program requires less memory and no 
graphics capabilities. The game sometimes can go on for over one 
hour! 



fsTARTJ 



SETUP 



HEADER 



INSTRUCTIONS 



DESTINATION 



FIGHT WITH WHOM 



INPUT COMMAND 



PROCESS COMMAND 



UPDATE STATUS 




Flowchart for Star Warp 



ENEMY^\NO 
ZAPPED 



YES 




YOU 
ZAPPED, 



YES 



NO 



MESSAGE 
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Sample Run 



ROGRAM STAR UARP 



SPACE, THE FINAL FRONTIER, 

THIS IS THE VOYAGE OF THE STARSHIP PROMETHEUS. 

IT S FIVE YEAR MISSION, TO EXPI...ORE STRANGE NEW WORLD 

TO SEEK OUT NEW LIFE AND NEW CI VII... [Z AT IONS y 

TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE. 



yeoman: SIR ENTER YOUR NAME FOR THE LOO ? KEN 
SPOOK YOU ARE IN COMMAND OF THE PROMETHEUS, CAPTAIN KEN. 
DO YOU WISH A LIST OF THE POSSIBLE COMMANDS, SIR? YES 

SPOCK THE POSSIBLE COMMANDS ARE DESIGNATED BY 
THE FOLLOWING NUMBERS OF CODE WORDS 

CODE COMMAND 

Rl s,NGF REPEAT RANGE AND BEARING OF ENEMY 

PHASEF FIRE PHASERS FORWARD BANK 

PHASER FIRE PHASERS REAR BANK 

TOP'PF FIRE PHOTON TORPEDOES FORWARD 

TORPR F'IRE PHOTON TORPEDOES REAR 

PROBE LAUNCH ANTIMATTER PROBE (ONLY 10) 

(•; L o p f A P P R A C H E N E M Y ( I M P U L S E D R I V E ) 

AWAY RETREAT FROM ENEMY (IMPULSE DRIVE) 

PURSF APPROACH ENEMY (WARP DRIVE) 

p STAFF RETREAT USING WARP DRIVE 

SHIELDS USE OPTIMUM SHIELD 

ROTATE ROTATE THE SHIP 

CHANCES FIRING CHANCES 

COMMANDS REPEAT COMMANDS 

HAMAOF FULL DAMAGE REPORT 

MUFF CORBOMITE MANEUVER 

WAIT ENEMY MOVES NEXT 

S(J J C IDE SELF-DESTRUCT I ON 

SURRENDER GIVE-UP TO ENEMY 

I y FF R TURN 90 DEGREES LEFT 

RVEER TURN 90 DEGREES RIGHT 

NOTE WEAPON RANGES ARE 

PHASERS 0-400 MGM (OPTIMUM 200 M6M) 
TORPEDOES 300-700 MGM (OPTIMUM 500 MGM) 
PROBES ALL RANGES 

PHASFRS ARE MORE DEADLY THAN TORPEDOES. 

PROBES CAUSE TOTAL DESTRUCTION BUT ARE EFFECTIVE 

ONI Y 7 PFROFNT OF THE TIME (APPROXIMATELY). 

TORPEDOES AND PHASERS ARE MORE DEADLY WHEN THE 

BEARING OF THE ENEMY IS CLOSE TO , 180 , AND- 180 

DEGREES. 



KEN CAPTAIN'S LOG, STAR DATE 517.657 . 

WE ARE PRESENTLY ON COURSE FOR BETEGEUSE 7 

TO RFSCUE MINERS UNDER THE ATTACK 

BY OUTSIDER BATTLE CRUISERS. 
SULU SIR. I'M PICKING UP A VESSEL ON AN ATTACK VECTOR 

WITH THE PROMETHEUS. 
SPOCK SHIP'S COMPUTERS INDICATE THAT IT IS THE OUTSIDER VESSEL 

CTHULU UNDER THE COMMAND OF CAPTAIN TWEE'L. 
KEN SOUND RED ALERT, LIEUTENANT UHURA. 
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UHURA AYE* SIR, 

SPOCK'; CTHULU IS AT RANGE 925,163 MGM* 

SULU WHAT ARE YOUR ORDERS * SIR ? LVEER 

KEN TURN 90 DEGREES LEFT MR, CHEKOV 

SPOCK : CTHULU IS AT RANGE 390.304 MGM* 

SULU WHAT ARE YOUR ORDERS * SIR ? TORPR 

KEN FIRE REAR PHOTON TORPEDOES 

CHEKOV MISSED HIM? SIR, 

SPOCK J CTHULU IS AT RANGE 56,3293 MGM* 

SULU WHAT ARE YOUR ORDERS * SIR ? PHASER 

KEN FIRE REAR PHASER BANK 

CHEKOV INCORRECT VECTOR* SIR, 

SPOCK J CTHULU IS AT RANGE 448,67 MGMi 

SULU WHAT ARE YOUR ORDERS* SIR ? TORPR 

KEN FIRE REAR PHOTON TORPEDOES 

CHEKOV DIRECT HIT* SIR. 

SPOCK A HIT ON SHIELD # 1 . 

SPOCK : CTHULU IS AT RANGE 796,98:1. MGM* 

SULU WHAT ARE YOUR ORDERS* SIR ? TORPR 

KEN FIRE REAR PHOTON TORPEDOES 

CHEKOV INCORRECT VECTOR* SIR. 

SPOCK : CTHULU IS AT RANGE 205,356 MGM. 

SULU WHAT ARE YOUR ORDERS* SIR ? WAIT 

KEN LET'S WAIT* WHAT WILL THE ENEMY DO NEXT 

SPOCK : CTHULU IS AT RANGE 8.11,958 MGM* BEARING 

SULU WHAT ARE YOUR ORDERS* SIR ? BLUFF 

KEN LIEUTENANT* OPEN A VOICE CHANNEL TO STAR FLEET 

KEN USE CODE 2. 

UHURA CODE 2* SIR? THE OUTSIDERS BROKE CODE 2 YESTERDAY* SIR. 

KEN CODE 2* LIEUTENANT* IMMEDIATELY. 

UHURA AYE* SIR. GO AHEAD* SIR. 

KEN THIS IS CAPTAIN KEN OF THE STARSHIP PROMETHEUS. 
WE ARE UNDER ATTACK BY THE OUTSIDER SHIP CTHULU 
AND* IN ORDER TO PREVENT THE PROMETHEUS FROM FALLING 
INTO ENEMY HANDS* WE ARE ACTIVATING THE CORBOMITE 
DEVICE. SINCE THIS WILL RESULT IN THE COMPLETE 
ANNIHILATION OF ALL MATTER WITHIN A RANGE OF 5000 
MEGAMETERS* ALL VESSELS SHOULD BE WARNED TO STAY 
CLEAR OF THIS AREA FOR THE NEXT 3 
SOLAR YEARS. 

I WISH TO RECORD COMMENDATIONS FOR THE ENTIRE CREW 
AND ESPECIALLY COMMANDER SPOCK* LIEUTENANT 
COMMANDER SCOTT* DOCTOR MCCOY* LIEUTENANT UHURA* 
LIEUTENANT SULU* AND ENSIGN CHEKOV. 

SULU NO IMMEDIATE CHANGE IN OUTSIDER COURSE AND SPEED* SIR. 



BEARING -100.204 DEGREES, 



BEARING -140.399 DEGREES, 



BEARING -14.0924 DEGREES. 



BEARING -116.54 DEGREES. 



BEARING 42.2506 DEGREES. 



BEARING -150.974 DEGREES. 



-132,879 DEGREES. 



SPOCK IT WOULD SEEM THAT THEY HAVE- AS YOU HUMANS PUT IT* 

' C A I... I... E D U R B L U F F ' » C A P T A I N , 
SPOCK t CTHULU IS AT RANGE 56 S. 429 MGM* BEARING 122.279 DEGREES 
SULU WHAT ARE YOUR ORDERS? SIR ? PURSE 
KEN APPROACH ENEMY AT WARP SPEED 

SPOCK : CTHULU IS AT RANGE 722,898 MGM* BEARING 113,52 DEGREES. 
SULU WHAT ARE YOUR ORDERS* SIR ? CLOSE 
KEN COME UP ON THE ENEMY VESSEL 

SPOCK ! CTHULU IS AT RANGE 159,005 MGM* BEARING -88,9298 DEGREES 
SULU WHAT ARE YOUR ORDERS* SIR ? PHASER- 
KEN FIRE REAR PHASER BANK 
CHEKOV INCORRECT VECTOR* SIR, 

SPOCK: CTHULU IS AT RANGE 648,824 MGM* BEARING 131.995 DEGREES. 
SULU WHAT ARE YOUR ORDERS* SIR ? PHASER 
KEN FIRE REAR PHASER BANK 
CHEKOV PHASERS FIRING* SIR, 
CHEKOV MISSED HIM* SIR, 

SPOCK? THE OUTSIDER IS FIRING PHOTON TORPEDOES AT US 
A DIRECT HIT ON SHIELD # 3 , 
SULU WHAT ARE YOUR ORDERS* SIR ? WAIT 
KEN LET'S WAIT* WHAT WILL THE ENEMY BO NEXT 
SPOCK? THE OUTSIDER IS FIRING PHOTON TORPEDOES AT US 

EVASIVE MANEUVERS WERE EFFECTED* NO DAMAGE, 
SULU WHAT ARE YOUR ORDERS* SIR ? ROTATE 
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WAWY 




KEN 




AWAY 




MGM? BEARING ~ 


69.5286 DEGREES 


escape: 




9 MGM? BEARING 


108,811 DEGREE: 



KEN TURN US ABOUT 180 DEGREES ? MR. SULU 

SP0CK5 THE OUTSIDER IS FIRING PHOTON TORPEDOES AT US 

F V A S T V F M A N E U M E R S W E R E E F F E C T E D ? N D A M A G E . 
SPOCKS CTHULU IS AT RANGE 648,824 „MGM» BEARING -48.0051 DEGREES 
SUUJ WHAT ARE YOUR ORDERS- SIR 1 
SULU TROUBLE HEARING YOU CAPTAIN 
SUI...U WHAT ARE YOUR ORDERS ? SIR '! 
KEN RETREAT FROM THE ENEMY 
SPOCKJ CTHULU IS AT RANGE 478. 5t 
SULU WHAT ARE YOUR ORDERS. SIR ' 
KEN RETREAT AT TOP WARP SPEED 
SPOCK: CTHULU IS AT RANGE 472,399 
SULU WHAT ARE YOUR ORDERS, SIR ? SURRENDER 
KEN LIEUTENANT? OPEN A VOICE CHANNEL TO THE ENEMY 
KEN THIS IS CAPTAIN KEN OF THE STARSHIP PROMETHEUS. 

WILL YOU ACCEPT OUR UNCONDITIONAL SURRENDER? 
TWFFL ON BEHALF OF THE OUTSIDER EMPIRE? I ACCEPT YOUR 

UNCONDITIONAL SURRENDER? PREPARE FOR IMMEDIATE BOARDING, 

COMPUTER? DO YOU WISH TO ATTEMPT ANOTHER BATTLE 

IN COMMAND OF THE PROMETHEUS ? NO 
COMPUTER DO YOU WISH TO CHANGE SHIP ? NO 



i:UN COMPLETE, 



Program Listing 



30 REM SET RANDOM NUMBER 

40 LET K6sllM<0> 

50 LET K5=INT(R6) 

60 LET n5=R6-RS 

70 LET N5s*Nn(R5) 

80 DIM N$<16) , 0i(21 ! , M<?1> 

90 DEF FNO(B)=IM <AHS(b/90> ) 
100 DEF FNX<B)»3.l4l e ;926»ABS<90-APS<R) )/180 
110 FOR Ial TO 8 
120 READ LS(I) 
130 NEXT 1 

140 REM PLACES TO GO 
150 DATA GAMMA 7»AlPHA CENTAURI 
160 DATA SIRIUS 12.8ETEGEUSE 7 
170 DATA SOL 3»SOL 9 
180 DATA ALDERBARAN S»AN0ROMENDA 
190 FOR I« 1 TO 16 
200 READ N* ( I ) 
210 NEXT I 

220 HEM THE GOOD GUY'S SHIPS 

230 DATA ENTERPRISE. SOL-KEEPER .BRA VE .EXETER 
240 DATA ACTURUS. SONG-BIRD, DRAGON, LION 
250 DATA EXCALIBEK, TIGER, REPUBLIC, DEFIANT 
260 DATA PROMFTHEUS, SIBERIA, LENIN, MARX 
270 FOR Ial TO 3 
280 READ K$(I) 
290 NEXT I 

300 REM fYPE OF BADDIES 
310 DATA KLINGON.KOMULAN. OUTSIDER 
320 FOR I»l TO 5 
330 READ R$(I) 
340 NEXI I 

350 REM BADDIES' SHIPS 
360 DATA CTHULU, CUARK ,KL IXSN IP , XOTOP .KLEEP 
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370 
380 
390 
400 
410 
420 
430 
44 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 

570 
560 
590 
600 
610 
620 
630 
640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
94 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 



CHEKOV" 



FOR I«l TO 5 

HEAD T$(I) 

NEXT I 

REM LETS NAME THE CAPTAIN OF THE BADDIES 

DATA KLEEK.RYJKAtDYSNIP.JOJLM.TwFEL 

FOR I»l TO 21 

READ OS(I) 

NEXT I 

DATA RANGE AND BEARING OF THE ENEMY 

DATA FIRE FORWARD PHASER BANK 

DATA FIRE REAR PHASER BANK 

DATA FIRE FORWARD PHOTON TORPEDOES 

DATA FIRE REAR PHOTON TORPEDOES 

OATA LAUNCH ANTIMATTER PRQRE 

DATA COME UP ON THE ENEMY VESSEL 

DATA RETREAT FROM THE ENEMY 

DATA APPROACH ENFMY AT WARP SPEED 

DATA RE1RFAT AT TOP WARP SPEED 

DATA "USE OPTIMUM SHIELD DEPLOYMENT MR.SULU" 

DATA "TURN US ABOUT 180 DEGREES. MR.SULU" 

DATA "MR.SPOCK, WHAT ARE OUR CHANCES AT A HIT" 

DATA "MR. SPOCK, WHAT OPTIONS ARF AVAILABLE" 

OATA "MR.SPOCK, FULL DAMAGE REPORT" 

DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO STAR FLEET" 

DATA "LET»S WAIT, WHAT WILL THE ENEMY DO NEXT" 

DATA "ACTIVATE COMPUTER OESTRUCT SEQUENCE" 

DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO ThE ENEMY" 

DATA "TURN 90 DEGREES LEFT MR. CHEKOV" 

DATA "TU«N 90 DEGREES RIGHT MR 

FOR I«l TO 21 

REAO Z$(I) 

NEXT I 

DATA RANGE«PHASEF,PHASERiTORPF 

OATA TORPR»PROBE,CLOSE»AWAY 

DATA PURSF.ESCAPE. SHIELDS 

DATA ROTATE, CHANCES»COMMANDS 

DATA DAMAGE, BLUFF, WAIT, SUICIDE 

DATA SURRENDEH,LVEER,RVEER,H 

PRINT 

LET SSsNS (RND (0)*16*1) 

PRINT "SPACE, THE FINAL FRONTIER," 

PRINT "THIS IS THE VOYAGE OF THE STARSHIP "|SS|"." 

PRINT "IT S FIVE YEAR MISSION, TO EXPLORE STRANGE NEw WORLDS," 

PRINT "TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS," 

PRINT "TO BOLOLY GO WHERE NO MAN HAS GONE BEFORE." 

PRINT 

PRINT 

PRINT TAB(20)I"S TAR UARP " 

PRINT TAB(20) I" " 

PRINT 

PRINT"YE0MAN 

INPUT CS 

PRINT "SPQCK YOU ARE IN COMMAND OF ThE "!S$;"» CAPTAIN "|C$»"." 

PRINT " DO YOU WISH A LIST OF THE POSSIBLE COMMANDS, SIR"? 

INPUT AS 

IF A$o"YES" THEN 950 

GOSUB 5530 

GOSUB 5950 

PRINT 

LET E$aK$(RND(0)»3*l) 

LET Ff«R$(RND(0)*5*l) 

LET U$aTS(RND(0)»5»l) 

LET OS«L$(RND(0)*8*1) 

LET Y»50*(RND<0>-.5> 

PRINT CSI" CAPTAIN'S LOG, STAR DATE "999«RND ( ) I ". " 

PRINT " WE ARE PRESENTLY ON COURSE FOR "»DS 

ON INT(RND<0)«5)»1 GOTO 1040, 1070, 1100. 1120, 1140 

PRINT" TO RESCUE MINERS UNDER THE ATTACK" 

PRINT " BY "IESI" BATTLE CRUISERS." 

GOTO 1150 



SIR ENTER YOUR NAME FOR THE LOG"l 
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1070 PRINT" WITH A CARGO OF DILITHIUM CRYSTALS TO •' 

1080 PRINT" POWER THE COlONlSTS STATION" 

1090 GOTO 1150 

1100 PRIM" TO SEARCH FOR NEW MINERALS FOR THE FEDERATION" 

1110 GOTO 1150 

1120 PRINT' WITH MARTIAN FLU-CURE" 

1130 GOTO 1150 

1140 PRINI" FOR OBSERVATION OF RLACK HOLES" 

1150 PRINT "SULU SIR. I'M PICKING UP A VESSEL ON AN ATTACK VECTOR" 
1160 PRINT " WITH THF "JSH"." 

1170 PRINT "SPOCK SHIP'S COMPUTERS INDICATE THAT IT IS THE "I 
1180 PRINT ESJ" VESSEL " 

11*30 PRINT " "1F$»" UNDER THE COMMAND OF CAPTAIN "JUSI"." 
1200 PRINT CSI" SOUND RED ALERT . LIEUTENANT UHURA." 
1210 PRINT "UHURA AYE. SIR." 
1220 IF PND(0)>.5 THEN 1250 
1230 LET XSa"SULU" 
1240 GOTO 1260 
1250 LET X$s"CHEKOV" 
1260 LET Ml»H2=G«X=S=0 
1270 LET P»0 
1280 FOR I»l TO 4 
1290 LET Z(I)=100 
1300 LET S(I)»100 
1310 NEXT I 

1320 LET R«1000-100«RND(0) 
1330 LET 8«360»(RND(0)-.5) 
1340 LET fc)l»360»(RNOC0>-.5) 
1350 GOTO 01380 
1360 IF I<7 THEN 01390 
1370 IF I > 12 THEN 01390 
1380 GOSUb 05810 

1390 PRINT X$" WHAT ARE YOUR ORDERS. SIR'M 
1400 INPUT Mi 
1410 FOR I«l TO 21 
1420 IF 2*(I)*M$ THEN 1480 
1430 NEXT I 
1440 CHANGE MS TO M 
1450 LET l«M(l)-2*, 
1460 IF M(l)=l THEN 1480 
1470 LET I»10«I*M<2>-27 
1480 IF I<1 THEN 1500 
1490 IF K22 THEN 1520 

1500 PRINT X1P' TROUBLE HEARING YOU CAPTAIN "IC5 
1510 GOTO 01390 
1520 PRINT C$1" "OSIIl 
1530 IF I>12 THEN 1570 
1540 IF I>6 THEN 1560 

1550 ON I GOTO M380, 1580i 1610, 1640. 1670, 1700 
1560 ON (1-6) GOTO 1730, 1730, 1760, 1760, 2670, 1730 
1570 ON (1-12) GOTO 2780, 2900, 2920, 1790, 3710, 3540, 3630, 
6180, 6210 

1580 IF hl<7 THEN 1900 

1590 PRINT "CHFKOV FORWARD PHASERS ARE DEADi SIR." 

1600 GOTO 3710 

1610 IF Hl<6 THEN 02320 

1620 PRINT "CHEKOV REAR PHASER JS DEAD, SIR," 

1630 GOTO 3710 

1640 IF Hl<9 THEN 2340 

1650 PRINT "CHEKOV FORWARD PHOTON TORPEDOES ARE DEAD, SIR." 

1660 GOTO 3710 

1670 IF Hl<8 THEN 2410 

1680 PRINT "CHFKOV REAR PHOTON TORPEDO IS DEAD, SIR," 

1690 GOTO 3710 

1700 IF HK11 THEN 2430 

1710 PRINI "CHEKOV PROBE LAUNCHER IS DEAD, SIR." 

1720 GOTO 3710 

1730 IF HK14 THEN 2520 

1740 PRINT "SULU IMPULSE ENGINES ARE DEAD, SIR." 

61 



1750 GOTO 3710 

1760 IF HKH THEN 2520 

1770 PRINT "SULU WARP DRIVE IS DEAD. SIR." 

1780 GOTO '3710 

1790 IF H2<11 THEN 1820 

1800 PHINT "SPOCK THF "»E$1" HAS NO FNGINES, SIR." 

1810 GOTO 3710 

1820 IF G=0 THEN 3270 

1830 PRINT "SPOCK I 00 NOT THAT THE "»E$!"S WILL BE FOOLED" 

1840 PRINT •' BY THAT MANEUVER AGAIN, SIH." 

1850 GOTO '3710 

1860 IF AHS(B)<90 1HEN 1890 

1870 PRINT "CHEKOV INCORRECT VECTOR. SIR." 

1880 GOTO 3710 

1890 PRIM "CHEKOV PHASERS FIRING, SIR." 

1900 LET R9»R 

1910 LET B9»B 

1920 GOSLB 6130 

1930 IF RND(0)<F8 THEN I960 

1940 PRINT "CHEKOV MISSED HIM, SIR." 

1950 GOTO 3710 

1960 IF RN0<0)<.2 THEN 2140 

1970 LET V»,5 

1980 LET KM 

1990 FOR Kl*2 TO 4 

2000 IF S(K)>»S(K1) THEN 2020 

2010 LET K»K1 

2020 NEXT Kl 

2030 IF S(K)>50 THEN 2050 

2040 LET K«IM (RND(0>«4*1> 

2050 LET H2=H2*V 

2060 PRINT "SPOCK A HIT ON SHIELD #"|K«"." 

2070 IF S(K)=0 THEN 2170 

2080 LET S(K)*S(K)-30«V«(RND(0)*.l) 

2090 GOTO 2100 

2100 IF S(K}>0 THEN 2130 

2110 PRINT " WHICH IS NOW GONE." 

2120 LET S(K)»0 

2130 GOTO 3710 

2140 LET V»l 

2150 PRINT "CHEKOV DIRECT HI I * SIR." 

2160 GOTO 1980 

2170 PRINT "CHFKOV GOT HIM, SIR." 

2180 IF RN0(0)<.5 THEN 5440 

2190 PRINT "SPOCK THF "JE$P' VESSEL REMAINS INTACT, CAPTAIN." 

2200 PRINT C$1" OPEN A HAILING FREQUENCY, LIEUTENANT." 

2210 PRINT "UHURA HAILING FREQUENCY OPEN, SIR." 

2220 PRINT C$1" THIS IS CAPTAIN "»C$I" OF THE STARShIP "1S$I"." 

2230 PRINT " PREPARE TO COMMENCE BEAMING OVER SURVIVORS." 

2240 IF RNO(0)<.5 THEN 2300 

2250 PHINT U$l" I AM AFRAID lHAT WILL BE QUITE IMPOSSIBLE." 

2260 PRIM " CAPTAIN, SINCE *E HAVE JUST INITIATED OUR AUTO-DESTRUCT t » 

2270 PRIM " 10 9 8 7 6 5 4 3 ? 1" 

2280 PHINT 

2290 GOTO ,5440 

2300 PRINT USI" VERY WELL, CAPTAIN. OUR SHIELDS HAVE BEEN DEACTIVATED." 

2310 GOTO 05840 

2320 IF AHS(fi)<90 THEN 1870 

2330 GOTO 1890 

2340 IF ABS(P.)>»90 THFN 1870 

2350 LET R9»R 

2360 LET 89«B 

2370 GOSUH 6080 

2380 IF RnD(0)>F9 THEN 1940 

2390 IF RnD(0)<.25 THEN 1970 

2400 GOTO 02140 

2410 IF A6S(B)<90 THEN 1870 

2420 GOTO 2350 

2430 IF X<10 THEN 2460 

2440 PRINT "CHEOV WE HAVE NO HORE PROBES, SIR," 
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2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 



2530. 2560, 2600, 2630, 2670, 



GOTO 3720 

LET a»X*1 

IF RND(0)<. 07135 THEN 2«s00 

PRINT "SPOCK PROBE LOST. CAPTAIN." 

GOTO 3710 

PRINT "SPOCK PROBE IS HOMING ON THE "|F$|" , SIR." 

GOTO 5440 J *"t 

ON (1-6) GOTO 

GOSlB 4880 

LET H.ABS(R-Y) 

GOTO 3710 

GOSLB 4940 

LET R«ABS(R*Y) 

IF «>5000 THEN 4780 

GOTO 3710 

GOSLB .4980 

LET H»ABS(R-2*Y) 

GOTO 1710 

GOSUB 5040 

LET R»ABS(R*2«Y) 

IF R>5000 THEN '+780 

GOTO 3710 

LET S»l 

FOR J«2 TO 4 

IF 2.IJK1ZISI THEN 2710 

LET S»J 

NEXT J 

PRINT "SULU SHIELO #"1S!» IS IN POSITION." 

GOTO 1390 

LET B«B*180 

IF B<»180 THEN 3710 

LET 8-8-360 

GOTO 3710 

PRINT "SPOCK 

LET H9«R 

LET B9>8 

GOSLd 6130 

LET F8»F8«100 

PRINT " OF A 

LET H9»R 

LET B9«B 

GOSLB 6080 

LET F9»F9«100 

PRINT " OF A 

GOTO 1390 

GOSLB 5530 

GOTO 1390 

PRINT "SPOCK 



2740 



AT RANGE "IR|» I WOULO ESTIMATE THE PROBABILITY" 



PHASER HIT AT "|F8|" AND THfc PROBSBL IL I T Y" 



PHOTON TORPFDO AT •■ ;F9} • 



DAMAGES ARE AS FOLIOWS," 
PRINT TAB(10)!"OF SHIELDS REMAINING" 
PRINT TAB(6)I"SHIELD #" ll AB ( lft ) I S$ ! T AB ( 30 ) J F$ 
FOR j«i TO 4 

PRINT TAB (9) IJ|TAB<16> IZ(j) ! TAB (30) IS (J! 
NEXT J 

PRINT SSI" DAMAGE"! 
IF Hl>5.5 THEN 03020 
PRINT TAB (20) '"NONE" 
GOTO 3140 

PRINT TAB (20) l"REAR PHASER DEAD" 
IF HK7 THEN 3140 

PRINT TAB<20) l"FORWARD PhflSERS DEAD" 
IF HK8 THEN 3140 

PRINT TAB(20) l"REAR PHOTON TORPEDOES DEAD" 
IF Hl<9 THEN 3140 

PRINT TAB (20) I "FORWARD PHOTON TORPEDOES DEAD" 
IF HKH THEN 3140 

PRINT TAB (20) l"PR08E LAUNCHER DESTROYED" 
PRINT TAB(20) P'WARP DRIVE LOST" 
IF HK14 THEN 3140 

PRINT TA8(20) l"IMPULSE POlmER LOST" 
PRINT FSI" DAMAGE"! 
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3150 IF H2>5.5 THEN 3180 

3160 PRINT TAB (20) I "NONE" 

3170 GOTO 3250 

3180 PRINT TAB(20M"ALL PHASE*S DEAD" 

3190 IF R2<9 THEN 3250 

3200 PHINT TAB (20) P'ALL TORPEDOES DEAD" 

3?10 IF H2<11 THEN 3250 

3220 PRINT TAB (20) J"WARP DRIVE DEAD" 

3230 IF H2<14 THEN 3250 

3240 PHINT TA8(20) l"IMPULSE ENGINES DEAD" 

3250 PHINT 

3260 GOTO 1390 

3270 PHINT C$" USE CODE 2." 

3280 PRINT "UHURA CODE 2i SIR? THE "»ES»"S BROKE COOE 2 YESTERDAY, 

SIR." 
3290 PRINT C$1" CODE 2. LIEUTENANT. IMMEDIATELY." 
3300 PRINT "LHURA AYE. SIR. GO AHEAD. SIR." 

3310 PRINT CS»» THIS IS CAPTAIN ";C$J" OF THE STARSHIP "lSS»»." 
3320 PRINT " WE ARE UNDER ATIACK BY THE "»ES»" SHIP "IFS 
3330 PRINT » AND. IN ORDER TO PREVENT THE »»S$I" FROM FALLING" 
3340 PRINT " INTO ENEMY HANDS, WE ARE ACTIVATING THE CORBOMITE" 
3350 PRINT " DEVICE. SINCE 1HIS WILL RESULT IN THE COMPLETE" 
3360 PRINT " ANNIHILATION OF ALL MATTER WITHIN A RANGE OF 5000" 
3370 PRINT " MEGAMETERS. ALL VESSELS SHOULD BE WARNED TO STAY" 
3360 PRINT " CLEAN OF THIS AHEA FOR THE NEXT " » INT (HND ( ) «4 ) *2 
3390 PRINT " SOLAR YEARS." 

3400 PRINT " I WISH TO RECORD COMMENDATIONS FOR THE ENTIRE CREW" 
3410 PRINT " AND ESPECIALLY COMMANDER SPOCK. LIEUTENANT" 
3420 PRINT " COMMANDER SCOTT. DOCTOR MCCOY, LIEUTENANT UHURA." 
3430 PRINT " LIEUTENANT SULU. AND ENSIGN CHEKOV." 
3440 LET b*\ 

3450 IF RND(0)>.2 THEN 3500 

3460 PRINT "SUlU "«E$1" IS MOVING AWAY AT WARP10. SIR." 
3470 PRINT "SPOCK THF TACTIC APPEAHS TO HAVE BEEN EFFECTIVE. SIR." 
3480 PRINT " THE "1E$»" HAS BEEN REPULSED." 
3490 GOTO 05840 

3500 PRINT "SULU NO IMMEDIATE CHANGE IN "JES?" COURSE AND SPEED. SIRV 
3510 PRINT "SPOCK IT WOULD SEEM THAT THEY HAVE. AS YOU HUMANS PUT IT," 
3520 PRINT " .CALLED OUR BLUFF', CAPTAIN," 
3530 GOTO 3710 

3540 PRINT "COMPUTER 10 9 8 7 6 5 4 3 2 1" 

3550 PRINT " THE "«S$;" HAS BEEN DESTROYED." 

3560 LET U»200»RN0(0) 

3570 PHINT " RADIUS OF EXPLOSION m Qj " MGM." 

3580 IF G>»R THEN 3610 

3590 PRINT " "IESJ" VESSEL REMAINS INTACT." 

3600 GOTO 5840 

3610 PRINT " "IESI" VESSEL DESTROYED." 

3620 GOTO 5840 

3630 IF E*<>"R0 M ULAN" THEN 03660 

3640 PRINT "UHURA NO ANSWER FROM THE 'MFSI". SIH." 

3650 GOTO 3710 

3660 PRINT CS«" THIS IS CAPTAIN "»C$I" OF THE STARSHIP "|S$»"." 

3670 PRINT " WILL YOU ACCEPT OUR UNCONDITIONAL SURRENDER?" 

3680 PRINT U$l" ON BEHALF OF THE "JE$»" EMPfRE. I ACCEPT YOUR" 

3690 PRINT " UNCONDITIONAL SURRENDER, PHEPARE FOR IMMEDIATE BOARDING." 

3700 GOTO 5840 

3710 REM ENEMY MOVE DECISION SECTION 

3720 IF H2<9 THEN 4030 

3730 IF H2<11 THEN 3870 

3740 IF H2>13.9 THEN 4670 

3750 IF Hl>10.9 THEN 4780 

3760 IF Hl>8.9 THEN 3820 

3770 IF R<200»RND(0) THEN 4830 

3780 GOSLB 4880 

3790 LET H»ABS(R*Y) 

3800 IF R>5000 THEN 4780 

3810 GOTO 1380 

3820 IF HND(0)<.5 THEN 3780 
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3830 GOSLB 4940 

3840 LET K»ABS(R-Y) 

3850 IF R>5000 THEN 4780 

3860 GOTO 1380 

3870 IF Hl<7 THEN 4000 

3880 IF Hl<9 THEN 3770 

3890 IF Hl>10.9 THEN 4780 

3900 IF HnD<0)<.5 THEN 3820 

3910 IF RND(0)<.5 THEN 39'SO 

3920 GOSLB 4980 



3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 



5080 



LET K«ABS(R*2»Y) 

IF H>5000 THEN '+780 

GOTO 1380 

GOSLB 5040 

LET RsABS(R-2«Y) 

IF h>5000 THEN 4780 

GOTO 1380 

IF K>700 THEN 3960 

IF H>200 THEN 3920 

GOTO J770 

if H<i<6 then 4200 
if hi<7 then 4i?o 

IF H<300 THEN 3960 

IF H>700 THEN 3920 

IF Hl>7.9 THEN 4090 

IF FND(B1)>FND(B) THEN 3960 

IF AriS(Hl-90)>=ABS(B-90)-20 THEN 

IF NnD<0)<.5 THEN 3960 

GOTO 3920 

LET N9sH 

LET 89=81 

GOSLB 6130 

LET K9»R 

LET B9«B1 

GOSLB 5080 

IF Fd>F9 THEN 3960 

GOTO 4050 

IF Hl<7 THEN 4290 

IF fi>150 THEN 4240 

IF HnD(0)<.5 THEN 3830 

GOTO 3960 

IF N>«400 THEN 04270 

IF AbS(B1><30 THEN 5150 

GOTO 3830 

IF «>700 THEN 3920 

GOTO 4080 

IF K>700 THEN 3920 

LET K9»N 

LET B9«B1 

GOSLB 6080 

LET K9«R 

LET B9»B1 

GOSLB 6130 

if f9>f8 then 4080 
if hi>6.9 Then 4390 

IF FND(B1)>FND(B) THEN 3960 

IF ABS(Bl-90)>»ABS(B-90)-20 THEN 5150 

GOTO 3960 

IF Hl<6 THEN 4660 

LET T-Hl-V 

IF ABS(T-6X#1 THEN 4470 

IF ABS(Hl-6.26)>,3 THEN 4470 

PRINT "CHEKOV REAR PHASER OEADt SIR." 

GOTO 4660 

IF ABS(T-7X.l THEN 4510 

IF ABS(Hl-7.25)>,3 THEN 4510 



4490 PHINT "CHEKOV FORWARD PHASERS UFAD. SIR." 
4500 GOTO 4660 
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4510 If ABStT-SX.l THEN 4*50 

4520 IF AbS(H1-8.2S> >.3 THEN 4550 

4530 PKIM "CHFKOV RFAR PHOTON TORPEDOES DEAD. SIP." 

4540 GOTO 4660 

4550 IF ABS<T-QX.l THEN 4590 

4560 IF ABS(Hl-9.25)>.3 THF.N 459!) 

4570 PRINT "CHFKOV FORWARD PHOTON luPPEOOES DfcAU. SIR." 

4580 GOTO 4660 

4590 IF AHS(T-HX.l THEN 4630 

4600 IF AHS!H1-11.25)>.3 THEN 4630 

4610 PRINT "CHEKOV PROBE LAUNCHFR AMP WARP DRIVE GONE. SIR." 

4620 GOTO 4660 

4630 IF AriS(T-14X.l THEN 4660 

4640 IF ABS(H1-14.25)>.3 THEN 4h60 

4650 PRINT "CHFKOV IMPULSE ENGINES UFAO. SIR." 

4660 RETURN 

4670 IF P>0 THFN 1360 

4680 LtT p=l 

4690 PKINT "SPOCK THF 'ME* J" SHIP IS COMPLETELY CPIPPLEO, SIR." 

4700 PRINT it nO YOU WANT TO SURRENDER"! 

4710 INPUI AS 

4720 IF A»*"YES" THEN 2200 

4730 PRINT "SPOCK DO Y'OU WANT TO DESTROY THE ">FU". CAPTAIN"; 

4740 INPUI A$ 

4750 IF Ai = "YF.S" THFN 1390 

4760 GOTO 4790 

4770 HEM LOSS OF CONTACT SECTION 

4780 PRINT "SULU CONTACT WITH THE 'MF$5" VESSEL HAS BEEN BROKEN. SIR." 

4790 PRIM C3M" RESUME COUPSE FOR 'MOSS". MR. SULU." 

4600 PRINT "CHEKOV AYE, SIR." 

4810 GOTO 5840 

4820 REM ENEMY SUICIDE SECTION 

4830 PRINI "SPOCK SENSORS INDICATE THAT IhE 'MFS5" IS OVERLOADING" 

4840 PRINT " WHAT REMAINS OF ITS ANTIMATTER POOS. UNDOUBTEDLY" 

4850 PRINI " ASUICIDAL MOVE .C APTA IN. POOS «ILL DETONATE" 

4860 PRINT " IN 12 SECONDS -10 9 R 7 6 5 4 3 2 1" 

4870 GOTO 5440 

4880 LET R=R-200«(RND(0)».5> 

4890 LET fct=360 «(RND(0)-.5) 

•4900 LET bl=360*(KND(0)-.5) 

14910 IF R>0 THFN 4930 

14920 LET k=-R 

14930 RETLKN 

14940 LET k»R*2O0»(knO(0) *.5) 

14950 LET H=360*(RND(0)-.b) 

14960 LET Bl=360<MRND(0>-.5> 

14970 RETLKN 

>4Cjo LET R=R-400»(KND(0) +.5) 

4990 LET a=360«(RND(0)-,5) 

5000 LET ril=360*(KND(0)-.5) 

b010 IF R>0 THEN 5030 

5020 LET h=-n 

5030 RETURN 

5040 LET K = R*400« (RND (0) *.5) 

5050 LET B«360«(RNO<0>-,5) 

5060 LET Bl»360*<RND(0)-.5> 

5070 RETURN 

5080 PRINT "SPOCK; THE 'ME$»" IS FIRING PHOTON TORPECOES AT US" 

5090 LET R9=R 

5100 LET B9 = B1 

5110 GOSLB 6080 

5120 IF RnD(0)>F9 THEN 5420 

5130 IF RNDI0X.4 THEN 5360 

5140 GOTO 05210 

5150 PRINT "SPOCK THE "»E$J" IS FIRING PHASERS AT US, SIR." 

5160 LET R9«R 

5170 LET B9 = B1 

5180 GOSUB 6130 

5190 IF RND(0)>F8 THEN 5420 

5200 IF RND10X.2 THEN 5360 
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5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
544 
5450 
5460 
5470 
5460 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 



LET V«.5 

LET K»INT(RN0(0)»4)*1 

IF S»0 THFN -5250 

LET K«S 

PRINT •• A HIT ON SHIELD *";«;"." 

IF 2(K)<«0 THEN 5340 

LET *<K)«Z(K)-30*V#(RND(0)».l) 

LET HlaHUV 

GOSUB 4410 

IF Z(K)>0 THEN 1360 

LET Z(K>»0 

PRINT «• SHIELD #"JKI" lb GONE." 

GOTO 1360 

PRINT "COMPUTER THE "ISSJ" HAS BEEN OESTROYED." 

GOTO 5H40 

LET V»l 

LET K»INT (RND(0)«4)*1 

IF S»0 1HFN 5400 

LET K»S 

PRINT "A DIRECT HIT ON SHIELO #'MKI"." 

GOTO 5260 

PRINT " EVASIVE MANEUVERS WERE EFFECTED. NO DAMAGE." 

GOTO 1360 

PRINT 

LET U»200»RND(0> 

IF G<R THEN 05500 

PRINT "COMPUTER RADIUS OF EXPLOSION "»QI" MGM." 

PRIM " "|SSl» HAS BEEN OESTRUC1 ED ." 

GOTO 5840 

PRINT "SPOCK "|E$I» VESSEL OESTROYED," 

prini " radius of explosion *« i u i »• mgm." 

GOTO 5840 

PRINT 

PRINT "SPOCK THE POSSIBLE COMMANDS ARE DESIGNATED BY" 

PRINT " THE FOLLOWING NUMBERS OF CODE WORDS " 

PRINT 

PRINP'COOE 

PRINT 

PRINT"RANGE 

PRINT"PHASEF 



COMMAND" 



REPEAT RANGE AND BEARING OF ENEMY" 
FIRE PHASERS FORWARD BANK" 



5610 PRINT"PHASER 

5620 PRINT'«T0RPF 

5630 PRINT"TORPR 

5640 PRINP'PkORE 

5650 PRINT"CLOSE 

5660 PRINT"AWAY 

5670 PRINP'PURSE 

5680 PRINT"ESCAPE 

5690 PRINT"SHIELDS 

5700 PRINT»ROTaTE 

5710 PRINT"CHANCES 

5720 PHINT"COMMANDS 

5730 PRINT"DAMAGE 

5740 PRINM'BLUFF 

5750 PRINT'WAIT 

5760 PRINT"SUICIDE 

5770 PRlNP'SURRENDfcR 

5780 P«INT"LVEFR 

5790 PRINT"RVEFR 

5800 RETLKN 

5810 PRINT"SPQCK "1F$;" 

5820 PRINT "DEGREES." 

5830 RETURN 

5840 PRINT 

5850 PRINT "COMPUTER. DO 

5860 PRINI " IN COMMAND 

5870 INPUT A$ 

5880 IF A*o"YES" THEN '5900 

5890 GOTO 960 



FIRE PHASERS REAR BANK" 

FIRE PHOTON TORPEDOES FORWARD" 

FIRE PHOTON TORPEDOES REAR" 

LAUNCH ANTIMATTER PROBE (ONLY 10)" 

APPROACH ENEMY (IMPULSE DRIVE)" 

RETREAT FROM ENEMY (IMPULSE ORIVE)" 

APPROACH ENEMY (WARP DRIVE)" 

RETREAT USING WARP DRIVE" 

USE OPTIMUM SHIELD" 

ROTATE THE SHIP" 

FIRING CHANCES" 

REPEAT COMMANDS" 

FULL DAMAGE RFPORT" 

CQRBOMITE MANEUVER" 

ENEMY MOVES NEXT" 

SELF-DESTRUCTION" 

GIVE-UP TO ENEMY" 

TURN 90 DEGREES LEFT" 

TURN 90 DEGREES RIGHT" 

IS AT RANGE "JRJ" MGM, BEARING "JBI 



YOU WISH TO ATTEMPT ANOTHER BATTLE" 
OF THE "JS$J 
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5900 PRINT "COMPUTER DO YOU WISH TO CHANGE SHIP"J 

5910 INPOI AS 

5920 IF A$<>"YES" THEN 6260 

5930 LET S$aN$(RND<0)»16*l> 

5940 GOTO '890 

5950 PRINT 

5960 PRINT "NOTE WEAPON RANGES ARE" 

5970 PRINT" PHASERS 0-400 MGM (OPTIMUM 200 MGM)" 

5980 PRINT" TORPEDOES 300-700 MGM (OPTIMUM 500 MGM)" 

5990 PRIM » PROBES ALU RANGES" 

6000 PRINT 

6010 PRINT "PHASERS ARE MORE DEADLY THAN TORPEDOES." 

6020 PRINT "PROBES CAUSE TOTAL DESTRUCTION BUT ARE EFFECTIVE" 

6030 PRINT "ONLY 7 PERCENT OF THE TIME (APPROXIMATELY)." 

6040 PRINT "TORPEDOES AND PHASERS ARE MORE DEADLY WHEN THE" 

6050 PRINT "BEARING OF THE ENEMY IS CLOSE TO . 180 .AND- 180" 

6060 PRINT "DEGREES." 

6070 RETURN 

6080 LET F9 = 

6090 IF ABS(R9-500)>200 THEN 61?0 

6100 LET F9*1-(R9-500)*2/40000 

6110 LET F9»F9»SIN(FNX«B9) )»(3-FND(89) )/3 

6120 RETURN 

6130 LET F8*0 

6140 IF R9>400 THEN .6170 

6150 LET F8»l-(R9-200M2/40000 

6160 LET F8«F8«SIN(FNX(B9)1«(5-FND(B9) )/5 

6170 RETURN 

6180 IF Hl.>»14 THEN 174U 

6190 LET a-B*90 

6200 GOTO 2750 

6210 IF Hl>»14 THEN 1740 

6220 LET ri«8-90 

6230 if b>»o then 2750 

6240 LET B«360-B 
6250 GOTO 2750 
6260 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 198 in Section II. 
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BOMB DISPOSAL SQUAD 

There is a time bomb with 10 wires. You must cut the wires to 
defuse the bomb. Unfortunately, because of the way the bomb was 
made, two of the wires will cause immediate explosion if they are 
cut. Out of the remaining eight wires, four are absolutely harmless. 
And you only have six moves to defuse the bomb. 

fsTARTJ 




Flowchart for Bomb Disposal Squad 
CLOCK 




4 HARMLESS WIRES 

4 CURRENT WIRES 

2 IMMEDIATE EXP WIRES 



DYNAMITE 

Fig. 1-3— There are 4 harmless wires, 4 current wires, and 2 immediate explo- 
sion wires. 
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Sample Run 

RUN 

BOriB DISPOSAL SGUAD 



INSTRUCTIONS ARE AS FOLLOWS 

THE TIME BOMB IS SET TO EXPLODE AFTER 

AFTER b MOVES 

YOU I1UST DEFUSE THE BOMB BEFORE 

THENt OR ELSE THE RESULTING 

EXPLOSION UILL GET YOU. . . 

THERE ARE 10 UIRES-, LABELLED 1 

TO ID-, S OF THESE UIRES 

UILL CAUSE IMMEDIATE EXPLOSION 

IF CUT. . 

OF THE REMAINING A UIRES 

M ARE NOT CONNECTED TO ANY 

SENSOR-, INCLUDING THE CLOCK. 

THE BOMB MAKER PLANTS THESE 

FALSE UIRES-, JUST TO GIVE YOU A 

HARD TIME IN DEFUSING THE BOMB. 

UHICH WIRE TO CUT 

f5 

SILLY GOOSE-, YOU HAVE EXPLODED 

THE BOMB... 

BANG.- 
TO PLAY AGAIN TYPE 1-, 
IF NOT TYPE D 
?1 

UHICH UIRE TO CUT 
?3 
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WHICH WIRE TO CUT 

?7 

SORRY-, THAT WAS A HARMLESS WIRE 

WHICH WIRE TO CUT 

?1 

WHICH WIRE TO CUT 

fl 

WHICH WIRE TO CUT 

fb 

YOU SHOULD BE WITH THE BOMB SflUAD 

YOU HAVE SUCCESSFULLY DEFUSED THE 

DEVICE IN ONLY S MOVES 

TO PLAY AGAIN TYPE 1 

IF NOT TYPE D 

?0 

NEVER DID LIKE EXPLOSIONS-, DID YOU? 

RUN COMPLETE 
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Program Listing 

ID REM THIS IS THE PROGRAM OF BOMB 

DISPOSAL SC2UAD 
2D REM THE BOMB CONSISTS OF ^i STICKS 

OF 
3D REM DYNAMITE AND IS CONNECTED TO A 
14 REM DIGITAL CLOCK AND OTHER SENS- 
ORS- 
SD REM UNFORTUNATELY YOU CANNOT JUST 
LO REM CUT THE UIRES FROM THE CLOCK 
70 REM IF THE UIRES ARE NOT CUT 

ACCORDING 
GO REM TO SEQUENCE-, BANG. YOU BLOU UP 
TO PRINT 

1DD PRINT 
110 PRINT 

120 PRINT "TIME BOMB" 

130 PRINT " " 

mo PRINT 

ISO PRINT "INSTRUCTIONS ARE AS 
FOLLOWS" 

IbO PRINT 

17D PRINT 

180 PRINT "THE TIME BOMB IS SET TO 
EXPLODE" 

nO PRINT "AFTER fc> MOVES." 

200 PRINT "YOU MUST DEFUSE THE BOMB 
BEFORE" 

21D PRINT "THEN-, OR ELSE THE RESULT- 
ING" 



72 



22D PRINT "EXPLOSION WILL GET YOU..'* 

230 PRINT 

240 PRINT "THERE ARE ID WIRES, 

LABELLED 1" 
2SD PRINT "TO ID, 2 OF THESE WIRES" 
2b0 PRINT "WILL CAUSE IMMEDIATE 

EXPLOSION," 
27D PRINT "IF CUT.. 1 ' 

2fi0 PRINT "OF THE REMAINING fi WIRES" 
2 C 5D PRINT "4 ARE NOT CONNECTED TO 

ANY" 
300 PRINT "SENSOR, INCLUDING THE 

CLOCK. " 
310 PRINT "THE BOMB MAKER PLANTS 

THESE" 
32D PRINT "FALSE WIRES, JUST TO GIVE 

YOU A" 
33D PRINT "HARD TIME IN DEFUSING THE 

BOMB. " 
340 PRINT 

350 REM SET UP WIRE CONNECTIONS 
3b0 DIM W-C10} 
37D REM THE WIRES ARE 
3A0 A = INT-CRND-CD} * 10} + 1 
3T0 B = INT-CRND-CD} * 10} + 1 
MOD IF B = A THEN 3^0 
M10 W-CA} = 3 
420 W-CB} = 3 
430 REM THE ABOVE TWO WIRES CAUSE 

EXPLOSION 
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HMD T = D 

M50 REM THE HARMLESS WIRES-, IHX} = 1 

MLO C = INT-CRND-CO} * 10} + 1 

M70 IF C = A OR C = B THEN MLO 

HBO Id -CO = 1 

M10 D = INT-CRND-CO} * 10} + 1 

500 IFD=C0RD=B0RD=A THEN 

M10 

510 Id-CD} = 1 

5E0 E = INT-CRND-CD} * 10> + 1 

530 IF E = D OR E = C OR E = B OR E 

= A THEN 520 

5M0 U-CE} = 1 

550 F = INT-CRND-C03- * 10} + I 

SLO IF F = E OR F = D OR F = C OR F = 

B OR F = A THEN 550 

570 Id-CF} = 1 

SAO REM SET UP LIVE UIRES Id-CX} = E 

510 G = INT{RND-CO} * 10} + 1 

LOO IF G = F OR G = E OR G = D THEN 

510 
L10 IF G = C OR G = B OR G = A THEN 

510 
LEO Id-CG} = E 

L30 H = INT-CRND-CO} * 10} + 1 
LMO IF H = G OR H = F OR H = E OR H 

= D THEN L30 
LSO IF H = C OR H = B OR H = A THEN 

L30 
LLO Id-CH} = 5 
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b70 I = INT-CRND-COl * 103- + 1 

baO IF I = H OR I = G OR I = F OR I 

= D THEN b?D 

LTD IF I = E OR I = C OR I = B OR I 

= A THEN L70 

700 U-CI> = 5 

71D REM SET UP LAST DIRE U-CX> = 2 

720 FOR J = 1 TO 10 

730 IF IKJ} = 3 OR U-CJ} = 1 THEN 7b0 

7M0 IF IKJ} = 2 THEN 7L0 

750 U-C J > = 2 

7L0 NEXT J 

770 REH ALL UIRES ARE NOT CONNECTED 

7A0 M = 

7T0 M = M + 1 

fiOO PRINT "WHICH WIRE TO CUT" 

fllO INPUT L 

32D IF L< >INT -CL} THEN 300 

330 IF L < 1 OR L > 10 THEN SOD 

AMD IF U-CLJ = 3 THEN 370 

650 IF IML} = 1 THEN 1030 

flbO GOTO lOt.0 

370 PRINT 

330 PRINT "SILLY GOOSEi YOU HAVE 

EXPLODED" 

3T0 PRINT "THE BOMB. .. " 

TOO PRINT 

110 PRINT" BANG.." 

T20 PRINT 

T30 PRINT 
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TMO PRINT "TO PLAY AGAIN TYPE 1-," 

TSD PRINT "IF NOT TYPE D" 

TLO INPUT C 

T7D IF C = 1 THEN 101D 

TfiO PRINT 

TTO PRINT "NEVER DID LIKE EXPLOSIONS-i 
DID YOU?" 

1DDD STOP 

1D1D PRINT 

1D50 GOTO 3AQ 

1D3D IF n > b THEN fl70 

ICWD PRINT "SORRY-, THAT WAS A HARM- 
LESS WIRE. " 

1DSD GOTO 7TD 

lObO IF H >b THEN fl?D 

1D7D W-CL> = 1 
IDflO T = T + 1 

1010 IF T M THEN 1110 

HDD GOTO 710 

USD PRINT "YOU SHOULD BE WITH THE 

BOMB SflUAD" 
113D PRINT "YOU HAVE SUCCESSFULLY 

DEFUSED THE" 
HID PRINT "DEVICE IN ONLY"} IH 

"MOVES" 
USD GOTO T3D 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 204 in Section II. 
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BIORHYTHM 

This program computes your biorhythm for either a month or a 
year starting with the month and year you desire. All it needs is your 
birth date. 



(start) 



INPUT 
NAME, MONTH 
OR YEAR- 
BIRTH DATE 
STARTING DATE 



COMPUTE 

BIORYTHM 

PER DAY 



PRINT 




NO 



Flowchart for Biorhythm 
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Sample Run 



ENTER YOUR NAME ? KEN TR ACTON 
ENTER EITHER M FOR MONTH OR 
Y FOR YEAR* FOR YOUR PLOT 
? M 

ENTER YOUR BIRTH DATE 

M N T H y D A Y * Y E A R - ? 1 ■> 3 ? 1 9 4 9 

ENTER STARTING MONTH AND YEAR 1 



4*1978 



BIORYTHM CI- 
BIRTHDATE 



ART FOR KEN 
30 OCTOBER 



R ACTON 
949 



*=COGNITIVE OR INTELLECT 
•f -PHYSICAL STATE 
$=SENSITIVITY OR EMOTIONAL 



BIORYI 


HM CHART F 


OR Al r 


•R.IL 




KEN TRACT ON 
< -■ ) 








APRIL 


1 


* 




* 




APRIL 


2 


$ 


* 






APRIL 


3 


* 


* 






APRIL 


4 


$ * 








APRIL 


b 


*$ 








APRIL 


6 


* 


$ 


}• 




APRIL 


7 


* 


* + 






APRIL 


a 


* 


+ 


* 




APRIL 


9 


* + 






$ 


APRIL 


10 


* 








APRIL 


11 


+ * 








APRIL 


12 


+ * 






APRIL 


.1.3 


+ 


* 






APRIL. 


14 


+ 


* 






APRIL 


15 




+ 


* 




APRIL 


16 






+ 


* 


APRIL 


17 








+ 


APRIL 


18 










APRIL 


19 










APRIL 


20 










APRIL 


2.1. 










APRIL. 


22 










APRIL 


23 








* 


APRIL. 


24 






* 




APRIL 


2 5 




$ 






APRIL 


26 




* 






APRIL 


27 


$ 








APRIL 


28 


* 








APRIL- 


29 


* 




•f 




APRIL 


30 


* 


■f 
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( + ) 



* 



+ * * 
# * 
** + 
$ * + 
$ * + 

# 
+ * 
+ * 
+ * 
+ * 
+ * 
* 



SRU 



1,002 UNTS. 



RUN COMPLETE. 
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Program Listing 



10 HEM BIORHYTHM PROGRAM 

30 M$»»uAY" 
•40 DIM A$(31) 

50 DIM M$(12) 

60 M$(l)«»JANUARY'« 

70 MS(2)«'»FEBUARY» 

80 .JA$U)-« H M-ABCH M 

90 M$ <4)*'«APR1L" 
100 M$(5)«"MAY M 
110 MS(6)*'»JUNE m 
120 MS(7)s»JULY M 
130 M$(8)*"AUGUS7» 
140 MS(9)*"SEPtEMB£R" 
150 MS(1U)="0CT0BER H 
160 MSai^'NOVEMBER" 
170 M${12)»''DFCEMBEH»' 
180 P9b6.2831P5 
190 Pi»2J 
200 P-2»2* 
210 P3»33 
220 D1*P9/P1 
230 D2»P9/P2 
240 D3«P9/P3 
250 OATA 31»2P.31i30 
260 OATA 31 .30 .31*31 
270 DATA 30.31.30.31 

280 PRINT»ENTFR YOUR NAME 1 '; 

290 INPUT N$ 

300 PHINT'ENTER EITHER M FOR MONTH OR" 

310 PRINT««Y FOR YEAR. FOR YOUR PLOT" 

320 INPUT X$ 

330 Nl*0 

340 PRINP'ENTER YOUR BIRTH DATE" 

350 PRIMT , *MONTH.DAY.YEAR * "I 

360 INPUT B1.B2.B3 

370 IF B3<1900 THEN x470 

3SO IF Bt»2 THEN 420 

390 IF Bl=2 AND B2 = 29 THEN 420 

400 IF INT(<B3-1900)/4XXB3-1900)/4 THEN 4*0 

410 NU1 

,420 PWINT»ENTfR STARTING MONTH AND YFAR"; 

.430 INPUT C1.C3 

144H If £3>*C3 THEN 1500 

1450 FOR Jal TO Bl 

1460 READ X 

i470 NEXT J 

480 Nl«M*X-BP 

490 IF 61*12 THFN 540 

500 FOR J«B1*1 TO 12 

510 READ X 

520 Nl*Nl*X 

530 NEXT J 

540 REM MORE CALCULATIONS 

550 IF C3-B3<2 THEN 620 

54X1. J.QB ~J»83» 1&9S-T 



79 



570 IK InT(j/4>sJ/4 THEN 590 

580 GOTO 600 

590 Nl*M*l 

600 N1*M*365 

610 NEXT J 

620 «ESTuHE 

630 IF Cl*l THEN 680 

640 FOR j«i TO Cl-1 

650 READ X 

660 Nl=M*X 

670 NEXT J 

680 IF lNT< (C3-1900)/4)<>(C3/4) THEN 720 

690 IF Cl>2 THEN 710 

700 GOTO 720 

710 Nl=Nl*l 

720 Ii»M 

730 I2=M 

740 I3 = M 

750 WtflL) X 

760 FOR jsl Tn 5 

770 PNIM 

780 NEXT J 

790 PHIN1"8I0RYTHM CHART FOR »»N$ 

800 PHINT»'BIRTHDATE »lB2lM$(ai) I" '«|R3 

810 PHIM 

820 PRlNT'iftsCOGNITlWF. OR INTELLECT" 

830 PRINT»'* = PhYSICAL STATE" 

840 PRINT"$*SENSITIVITY OR EMOTIONAL" 

R50 FOR jnl Tn 5 

860 PRINT 

870 NEXT J 

880 L=0 

890 GOSUb 1330 

900 0=0 

910 L=L*1 

920 FOR 1*1 TO 31 

930 X$U)ait h 

940 NEXT I 

950 Xi(l6)=Hj,i 

96 Yl*I,xT(15«SlN( (L*I1)*01)*16.5) 

97 Y2»INT(15«SIN( (L*I2)»02) *16.5) 
9?0 Y3sI,mT (15*SIN( (L*'I3)*03) *16.5) 
990 x4(Yl)s"*«» 

1O00 A4<Y<£)=ii$u 

1010 XS(Y3)="*» 

1020 IF YlsY2 THEN 1040 

1030 GOTO 1050 

1040 XS(Y1)bh#h 

1050 IF Y1»Y3 THEN 1070 

1060 GOTO 1080 

1070 XS(Yl)pH«n 

1080 IF Y2sY3 THEN 1100 

1090 GOTO 1110 

1100 X$(Y3>="#" 

1110 0*0*1 

1W4 TF -BxX*l THEN 124Q- 

1130 S1=S1*1 

1140 IF -Si* 12 THEN 1530 

1150 C1«C1*1 
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1160 IF Cl>12 THEN 1200 

1170 HEAD X 

1180 GOSUB .1330 

1190 GOTO 1240 

1200 RESTORE 

1210 CU1 

1220 C3*C3*1 

1230 GOTO 1170 

1240 IF D>9 THEN 1270 

1250 PHINT MSlClM" M *Di" "|TAB(9)I 

1260 GOTO 01280 

1270 PRINT M$(C1)»" '»;D»TAB(9M 

1280 FOR J«l TO 31 

1290 PRINT XS«J) J 

1300 NEXT J 

1310 PHINT 

1320 GOTO .910 

1330 REM PRINT MONTH 

1340 IF X9«l THEN 1530 

1350 IF X*a'«M" THEN 1370 

1.16 GOTO 1380 

1370 *9sl 

1380 FOR J=l To 5 

1390 PKIM 

1400 NEXT J 

1410 PRINM'HIORYTHM CHART FOH "IM*(C1)I" "IC3 

1420 PRINT TAfl(5) INS 

1430 PRINT TAB<10> I »»<-)'• I TAB < 34 ) »»«(♦>" 

1440 PHINT 

1450 0«1 

1460 HETtKN 

1470 PHINT 

1480 PHINT'YEAR MUST BE 1900 OR LATEH" 

1490 GOTO '340 

1500 PHINT 

1510 PHINP'STARTING YEAH MUST BE GREATER THAN BIRTH YEAR" 

1520 GOTO 420 

1530 REM NOW l»F STOP 

1540 END 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 206 in Section II. 
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GUESS 

The friendly computer picks a number at random and you must 
guess it. If you are too low or too high, it will tell you with the 
appropriate message. At the end, it will tell you how many tries you 
took. 

The best way is to guess quickly by using the binary search 
method shown in Fig. 1-4. Basically, you pick a point halfway be- 
tween the last known too high point and too low point. 



(start) 



SELECT RANDOM 
NUMBER 



INPUT GUESS 




WIN MESSAGE 



N 




MESSAGE 



MESSAGE 



GOODBYE MESSAGE 



Flowchart for Guess 
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100 



RANDOM. 
NUMBER 



-X 



■GUESS 1 



- GUESS 3 



GUESS 4 
-GUESS 2 



Fig. 1 -4 — 1 . If guess 1 was too high, try halfway between it and 0. 2. Since guess 
2 was too low, try halfway between guess 1 and guess 2. 3. Since guess 3 is too 
high, try halfway between it and guess 2. You are narrowing the range each time 
by Vz (binary) until you reach the desired number. 

Sample Run 

PROGRAM GUESS 

A R E I N S T R U C T 1 N S R E Q U I R E D ( 1 ■■■■■■■■ Y E S y 2 ==■■ N ) 
? 1 

AT RANDOM YOUR FRIENDLY COMPUTER WILL 
CHOOSE A NUMBER BETWEEN 1 AND 100 
YOU WILL TRY TO GUESS THE RANDOM NUMBER 
H I NT! ! T H E B I N A R Y S E A R C H M E T H D ! ! 

GOOD -LUCK 
GUESS 

WHAT IS YOUR GUESS? 50 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 25 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 12 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 6 

YOU GOT ITr RIGHT ON THE NOSE!!!! 

YOU ONLY TOOK 4 TRIES 

WANT TO TRY AGAIN 
TYPE 1---YES OR 2 --••■■NO? 1 
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GUESS 



WHAT IS YOUR GUESS? 

? 50 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 25 

YOU ARE LOU 

WHAT IS YOUR GUESS? 34 

YOU ARE LOW 

WHAT IS YOUR GUESS? 46 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 36 

YOU ARE LOW 

WHAT IS YOUR GUESS? 39 

YOU GOT IT» RIGHT ON THE NOSE!!!! 

YOU ONLY TOOK 6 TRIES 

WANT TO TRY AGAIN 
TYPE 1~YES OR 2-NO? 1 

GUESS 



WHAT IS YOUR GUESS : 

? 50 

YOU ARE LOW 

WHAT IS YOUR GUESS? 100 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 75 

YOU ARE LOW 

WHAT IS YOUR GUESS? 87 

YOU ARE LOW 

WHAT IS YOUR GUESS? 96 

YOU ARE HIGH 

WHAT IS YOUR GUESS? 90 

YOU GOT IT, RIGHT ON THE NOSE ! ' ■ i 

YOU ONLY TOOK 6 TRIES 

WANT TO TRY AGAIN 
TYPE 1=YES OR 2-NO? 2 
SCARED HUH !!!!!! 



RUN COMPLETE, 
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Program Listing 

10 REM THIS IS THE GAME OF GUESS 

20 

30 REM INSTRUCTIONS 

40 PRINT»ARE INSTRUCTIONS REQUIRED 1 *! 

50 PRINT»(l*YESf 2»N0)" 

60 INPUT A 

70 IF A<>! THEN 00170 

80 PRINT 

90 PRINT'»AT RANDOM YOUR FRIENDLY COMPUTER KILL" 

100 PRINT"CH00SE A NUMBER BETWEEN 1 AND 100" 

110 PHINT"Y0U WILL TRY TO GUESS THE RANDOM NUMBER" 

120 PHINT»HINT! ITHE BINARY SEARCH METHOD!!" 

130 PRINT 

140 PRINT" GOOD-LUCK" 

150 PRINT" — — — --» 

160 PHINT 

170 PRINT 

180 PRINT" GUESS" 

190 PRINT" " 

200 X«0 

210 Q»INT(100«RNO<0>> 

220 PRINT 

230 PHINP'WHAT IS YOUR GUESS"! 

240 INPUT Z 

250 X-X*l 

260 IF 2*Q THEN 300 

270 IF Z>0 THEN 330 

280 PRINT"YOU ARE LOW" 

290 GOTO 230 

300 PHINT»YOU GOT IT. RIGHT ON THE NOSE!!!!" 

310 PRINT"YOU ONLY TOOK "»Xi» TRIES" 

320 GOTO 350 

330 PHINT"YOU ARE HIGH" 

340 GOTO 230 

350 PRINT 

360 PRINT"WANT TO TRY AGAIN" 

370 PRINT"TYPE 1»YES OR 2«NO"l 

380 INPUT V 

390 IF Vol THEN 410 

400 GOTO 170 

410 PRINT"SCARED HUH I I I I I I " 

420 END 

This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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GUESS AGAIN 

To win this game you must guess a random fraction, not a 
decimal number but a common fraction. The fraction, which is picked 
at random, is less than 1 and is in the following form: x/y where x is 
an integer from 2 to 9 and x < y. 




DISPLAY RULES 



COMPUTE FRACTION 



START MESSAGE 



NPUT GUESS 




WINNING 
MESSAGE 




YES 



Flowchart for Guess Again 
86 



Sample Run 

RUN 

THE C0I1PUTER IS GOING TO 
CHOOSE A FRACTION FROM D 
TO 1 

THE FRACTION SO CHOSEN (JILL 
BE IN THE FOLLOWING FORM 
X/Yt WHERE X IS AN INTEGER 
FROM 2' TO 1 AND IS ALSO 
LESS THAN Y 
EXAMPLES: 

1/T-i 3/fln H/1, OR 1/M 
TO REIIIND YOU AGAIN, THE 
THE FRACTION COULD DEFINITELY NOT BE 
ONE OF THE FOLLOWING OR ANY FRACTION 
LIKE THE FOLLOWING 
M/lD-i 3/21-1 D/Ti OR 2/2 
REMEMBER YOUR GUESS FRACTION MUST BE 
BETWEEN AND 1 
PLEASE ENTER YOUR GUESS AS A 
DIGIT THEN A SLASH THEN THE DENOMIN- 
ATOR DIGIT 

THE COMPUTER HAS PICKED THE FRACTION 
GOOD LUCK... 
WHAT IS YOUR GUESS 
f 2/3 

YOU SHOULD TRY A LARGER VALUED 
FRACTION 

WHAT IS YOUR GUESS 
t S/b 



R7 



THAT'S SUPER-, YOU MUST BE A 
MATHEMATICIAN 

IF YOU WANT TO TRY AGAIN-, TYPE 1 

OTHERWISE TYPE 2 

f 2 

GOOD/BYE MATHEMATICIAN 

RUN COMPLETE 

Program Listing 

ID REM THE COMPUTER IS TO PICK A 
FRACTION 

20 REM AT RANDOM-, YOU ARE GOING 

3D REM TO HAVE TO GUESS IT 

ilO PRINT 

SD PRINT 

bO REM THE RULES OF THE GAME 

7D PRINT 

SO PRINT "THE COMPUTER IS GOING TO" 

10 PRINT "CHOOSE A FRACTION FROM 0" 

100 PRINT "TO 1" 

110 PRINT "THE FRACTION SO CHOSEN 

WILL" 

120 PRINT "BE IN THE FOLLOWING FORM" 

130 PRINT "X/Y-, WHERE X IS AN INTEG- 
ER" 

1M0 PRINT "FROM E TO 1 AND IS ALSO" 

ISO PRINT "LESS THAN Y" 

IbO PRINT "EXAMPLES:" 

170 PRINT "1/T-, 3/fi-, H/T-, OR 1/M " 

IflO PRINT "TO REMIND YOU AGAIN-, THE r ' 
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11Q PRINT "FRACTION COULD DEFINITELY 

NOT BE" 
200 PRINT "ONE OF THE FOLLOWING OR 

ANY FRACTION" 
210 PRINT "LIKE THE FOLLOWING: " 
220 PRINT "M/lQ-i 3/21-, o/Th OR 2/2" 
230 PRINT 

240 PRINT "REIIEIIBER YOUR GUESS FRAC- 
TION MUST BE" 
250 PRINT "BETWEEN D AND 1" 
2b0 PRINT "PLEASE ENTER YOUR GUESS 

AS A" 
270 PRINT "DIGIT THEN A SLASH THEN 
THE DENOMINATOR" 

2flO PRINT "DIGIT" 

210 REN TIME TO PICK A FRACTION 

300 B = INT-CRND-CO} * fl> + 2 

310 A = INT-CRND-CO! * -CB - 1» + 1 

320 PRINT 

33D PRINT "THE COMPUTER HAS PICKED 
THE FRACTION" 

340 PRINT "GOOD LUCK..." 

3S0 PRINT 

3b0 PRINT "WHAT IS YOUR GUESS" 

370 INPUT G* 

330 L = LEN-CG*> 

3=10 IF L<> 3 THEN 3S0 

400 D$ = SUBSTR-CG*-ilil> 

M10 S* = SUBSTR-C6*i2il} 

420 E* = SUBSTR-CG*-i3il} 
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430 D = VAL-CD*} 
440 E = VAL-CE*} 
450 IF S* < >"/" THEN 350 
4LO IF D < 1 OR E < 1 THEN 3SD 
470 IF DO INT-CD} OR E<>INT-CE} 
THEN 350 

450 REM NOTICE THAT 470 ALSO CHECKS 
FOR LESS THAN 

410 REM 1 LIKE LINE 4L0-. WE HAVE IN- 
CLUDED 

SDD REM BOTH, BECAUSE OF THE 
DIFFERENCES IN THE 

SID REN VERSIONS OF BASIC AVAILABLE 

550 IF D > E THEN 3SD 

530 C = A/B 

S4D F = D/E 

550 IF C = F THEN STO 

5b0 IF C > F THEN 710 

S7D PRINT "YOU SHOULD TRY A SMALLER 
VALUED NUMBER FRACTION" 

580 GOTO 3SD 

STO PRINT 

bOO PRINT "THAT'S SUPER-, YOU MUST 
BE A 

blD PRINT "MATHEMATICIAN" 

b30 PRINT "IF YOU WANT TO TRY AGAIN-, 
TYPE 1" 

b40 PRINT "OTHERWISE TYPE 2" 

fc>50 INPUT C 

bbO IF C = 1 THEN blO 
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b?D PRINT "GOOD-BYEn MATHEflATICIAN" 

bfiO STOP 

b^D PRINT 

7D0 GOTO 3DD 

710 PRINT "YOU SHOULD TR V A LARGER 

VALUED FRACTION" 

72Q GOTO 3SD 

73D END 

This program will run on the Radio Shack TRS-80 computer 
with the Mowing modification. Change "SUBSTR" to "MID$" in 
lines 400, 410, and 420. 
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PLOT YOUR 4 EQUATIONS 

This plotting program allows the user to plot functions by 
modifying lines 35 to 55. Q(l) to Q(4) are the four equations. If more 
equations are to be plotted, continue adding Q(n), but be sure to 
change line 15 to show the change in number of equations. 

This program is a sample; the equations already are given. 
Also, this program consists of an advanced plotting subroutine which 
may be used by itself in other programs. Note that the characters 
used for plotting may be changed as well. 

We also can change the width of the plot in inches by changing 
line 20. 

A flow chart has been given so the user can, if desired, use this 
plotting technique with other programs. 




PARAMETERS 
FOR SUBROUTINE 



GOSUB 75 



INITIALIZE 
PLOT ROUTINE 



FOR X = TO 36 



SETUP 
Q(1)...Q(4) 

^_ GOSUB 100 




Flowchart for Plot Your 4 Equations Subroutine (1 of 2) 
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& 



PRINT 
SPACE 



SETUP 
Q3 AND Q6 



^return) 



FOR 04 = 
1 T0Q1 



SETUP 
FIRST Q'S 



" 


NEXT Q4 


' 


1 



FOR Q4 = 1 
TO Q1 



REDUCE Q'S 
BY 1 



NEXT Q4 



FOR Q4 = 1 
T0Q1 



SCAN FOR 
VALUE 



NEXT Q4 





BUMP Q5 



THRU 1 



SELECT & 

PRINT 
"<", "*" etc. 



YES 



PRINT 



YES 



Flowchart for Plot Your 4 Equations Subroutine ( 2 of 2) 
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Sample Run 



*** SAMPLE PROGRAM *** 

+ < + + + 

+ > + + + 

+ * + + + 

+ < + + + 

+ > + + + 

+ + < + + 

+ + > + + 

+ + * + + 

+ + < + + 

+ + > + + 

+ + + < + 

+ + + > + 

+ + + * + 

+ + + < + 

+ + + > + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+++++++++++++++++++++++++++++++ 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 
+++++++++++++++++++++++++++++++ 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+ + + + 

+++++++++++++++++++++++++++++++ 
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Sample Program 












* 






— t 



-r J 



t -5- * 

+ i i 

} •*• * -r 






; -f * •r 

* -r * 

♦ * i 
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Program Listing 



5 PRINT" *** SAMPLE PROGRAM ***' 
10 REM ASSIGN 01=N0 CURVES»Q3=MAX UIDTHdN INCHES) 
15 LET 01 = 4 
20 LET 03 = 6 
25 GOSUB 75 
30 FOR X = TO 36 
35 LET Q(l) = X/6 
40 LET Q<2) » (36-X)/6 
45 LET Y ■ SQR(9-((X/6)-3)"2) 
50 LET Q(3) = 3-Y 
55 LET Q<4) = 3+Y 
60 GOSUB 100 
65 NEXT X 
70 STOP 
75 REM *** ENTRY POINT TO INITIALIZE PLOTTING SUBROUTINE*** 

80 LET Q3 « Q3*10 +1 
85 LET 06 = 
90 RETURN 

95 REM *** ENTRY POINT TO PLOT ONE LINE *** 
LQO FOR 04 = 1 TO 01 
LOS LET 0<04) = 0<Q4)*10+1.5 
110 NEXT 04 
115 LET 05 = 
120 FOR 04 = 1 TO 01 
125 LET 0(04) = Q(Q4)-1 
130 NEXT 04 
135 FOR 04 = 1 TO 01 
140 IF 0(04) < THEN 160 
145 IF Q<04)< .333333334 THEN 205 
150 IF 0(04) < .666666667 THEN 215 
155 IF 0(04) <= 1 THEN 00225 
160 NEXT 04 

165 IF (Q6/6-INT(Q6/6>) = THEN 235 
170 IF (Q5/10-INT(Q5/10))=0 THEN 235 
175 PRINT" "J 
180 LET 05 = 05+1 
185 IF 05<03 THEN 120 
190 PRINT 
195 LET 06 = Q6+1 
200 RETURN 
205 PRINT"<"J 
210 GO TO 180 
215 PRINT'*'; 
220 GO TO 180 

225 print*:* 1 ; 

230 60 TO 180 

235 PRINT"+'f 

240 GO TO 180 

245 REM *** END OF SUBROUTINE *** 

250 END 

This program is not recommended for use on a TRS-80 compu- 
ter because of the length of time needed to plot a single line plus the 
graph does not fit on the video screen. 
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PLOT YOUR 10 EQUATIONS 

This plotting program will plot up to nine curves at once, which 
are entered at lines 110 to 150 in the form of Q(l) = function to 
Q(9) = function. 
(Q(n) = f(x)) 

We also can specify, once the functions are entered, which first 
n (up to nine) will be plotted. We supply the limits of the independent 
variable x and the limits of the range. 




INPUT PARAMETERS 



CALCULATE OFFSETS 
FOR SCALING 



PRINT SCALE HEADER 



PLOT 



FOR 
LOOP 



PRINT SCALE HEADER 




Flowchart for Plot Your 1 Equations 
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Sample Run 



ENTER NUMBER OF CURVES TO BE PLOTTED 

? 3 

ENTER THE LOWER LIMIT OF THE IND VARIABLE 

? 10 

ENTER THE UPPER LIMIT OF THE IND VARIABLE 

? 100 

ENTER INCREMENT VALUE OF THE IND VARIABLE 

? 5 

ENTER THE LOWER LIMIT OF THE RANGE 

? 10 

ENTER THE UPPER LIMIT OF THE RANGE 

? 100 

HORIZONTAL RANGE : 10 TO 100 IN INCREMENTS OF 1.8 
VERTICAL RANGE ! 10 TO 100 IN INCREMENTS OF 5 



0.0 



10.0 



20.0 



30.0 



ENTER NUMBER OF CURVES TO BE PLOTTED 

? 8 

ENTER THE LOWER LIMIT OF THE IND VARIABLE 

? 3.25 

ENTER THE UPPER LIMIT OF THE IND VARIABLE 

? 7.87 

ENTER INCREMENT VALUE OF THE IND VARIABLE 

? 4 

ENTER THE LOWER LIMIT OF THE RANGE 

? 23 

ENTER THE UPPER LIMIT OF THE RANGE 

? 34 

HORIZONTAL RANGE ! 23 TO 34 IN INCREMENTS OF .22 
VERTICAL RANGE ! 3.25 TO 7.87 IN INCREMENTS OF 4 



0.0 



10.0 



20.0 



30.0 



40.0 
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Program Listing 



5 PRINT "ENTER NUMBER OF CURVES TO BE PLOTTED" 
10 INPUT A 

15 PRINT"ENTER THE LOWER LIMIT OF THE IND VARIABLE' 
20 INPUT B 

25 PRINT-ENTER THE UPPER LIMIT OF THE IND VARIABLE' 
30 INPUT C 

35 PRINT'ENTER INCREMENT VALUE OF THE IND VARIABLE" 
40 INPUT D 

45 PRINT'ENTER THE LOWER LIMIT OF THE RANGE" 
50 INPUT E 

55 PRINT'ENTER THE UPPER LIMIT OF THE RANGE" 
60 INPUT F 
65 LET K=0 
70 LET L=(F~E)/50 
75 PRINT ' HORIZONTAL RANGE 5 "Ef TO "Fr" IN 

INCREMENTS OF "L 
80 PRINT " VERTICAL RANGE 

INCREMENTS OF "D 
■85 PRINT 



'Bi* TO "CJ" IN 



'90 GOSUB 


510 


95 GOSUB 


520 


100 FOR 


X=B 


TO C STEP D 


105 LET 


D=0 




110 






115 






120 






125 






130 






135 






140 






145 






150 






155 FOR 


1 = 1 


TO A 


160 LET 


P<I) 


=INT( (Q(I)-E+L/2)/L)+l 


165 LET 


R(I) 


= 1 


170 NEXT I 




175 FOR 


1 = 1 


TO A-l 


180 FOR 


J=I+1 TO A 


185 IF P(I)< 


=P(J) THEN 225 


190 LET 


R=P(I) 


195 LET 


P(I) 


=P < J ) 


200 LET 


P(J) 


=R 


205 LET 


R=R(I) 


210 LET 


R<I> 


=R(J) 


215 LET 


R(J) 


=R 


220 GOTO 175 


225 NEXT J 




230 NEXT I 




235 LET 


J=l 




240 FOR 


1=2 


TO A 


245 IF P(I)< 


:>P(I~J) THEN 270 


250 LET 


P<I) 


=2E76 


255 LET 


R(I- 


•J)=4E44 



260 
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265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 

365 
370 
375 

380 
385 
390 
395 
•400 
'405 
'410 
■415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
490 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 



GOTO 00275 

LET J=l 

NEXT I 

LET K=K+1 

IF 5*INT(<K-1)/5)=K-1 THEN 

PRINT " . "? 

GOTO 305 

PRINT " ~"r 

FOR 1=1 TO A 

IF P(I)=2E76 THEN 480 

IF <P<I>-i>*<5i-P(I)><0 THEN 

LET D«P<I)-D-1 

IF D=0 THEN 335 

GOSUB 530 

IF R<I>=4E44 THEN . 470 

IF R(I)>1 THEN 355 

PRINT "1"? 

GOTO 475 

IF R<I)>2 THEN 370 

PRINT *2"? 

GOTO 475 

IF R(I)>3 THEN 385 

PRINT "3"? 

GOTO 475 

IF R(I)>4 THEN 400 

PRINT "4"? 

GOTO 475 

IF R(I)>5 THEN 415 

PRINT "5'; 

GOTO 475 

IF R<I)>6 THEN 430 

PRINT "6"? 

GOTO 475 

IF R<I>>7 THEN 445 

PRINT '?•', 

GOTO 475 

IF R(I)>8 THEN '460 

PRINT "8"? 

GOTO • 475 

PRINT '9" > 

GOTO 475 

PRINT 'X'i 

LET D«P(I) 

NEXT I 

PRINT 

NEXT X 

GOSUB 

GOSUB 

STOP 

PRINT" o.o 10.0 20. 

RETURN 

PRINT" 

RETURN 

LET V=i 

IF INT<2*D/(2"V)>=0 THEN 

LET V=V+1 

GOTO 535 

FOR T=l TO V-l 

IF D*2*INT<D/2> THEN 640 



300 



480 



520 
510 



50 



100 



360 IF T>1 THEN 00575 

565 PRINT " "f 

570 GOTO .640 

575 IF T>2 THEN 590 

580 PRINT ■ "5 

585 GOTO 640 

590 IF T>3 THEN 605 

595 PRINT " " i 

600 GOTO 640 

605 IF T>4 THEN 620 

610 PRINT " "> 

615 GOTO 640 

620 IF T>5 THEN 635 



S33 W m 



fO 640 
635 PRINT " 
640 LET D=INT<D/2> 
645 NEXT T 
650 RETURN 
655 END 



This program is not recommended for use with the Radio Shack 
TRS-80 computer because there may be a scrolling problem if the 
graph is more than 13 lines long. 
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POLAR GRAPHIC SUBROUTINE 

This program allows the user to plot a curve in a polar coordi- 
nate plot. The function to be plotted is entered at line 105 in the form 
of A = F(c). Up to 90 points may be plotted with an increment 
adjustment to minimize distortion of the generated curve. 

(start] 



INPUT PARAMETERS 



CALCULATE SCALING 



PLOTTING 




FOR LOOP 



Flowchart for Polar Graphic subroutine 
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Sample Run 

D01DS A = TAN{a3*C} 

PROGRAM POLAR 

++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS) 
? 7 

X INCREMENT = .233333 

Y INCREMENT = .388889 

* 
* 
* 
* 

* 

* 
* 

* 

+++ ++ * ++ + 

+ +++*+++ + 

+++ 

+++ 

+#+ 

+*+ 

+++ 

+++ 

+ +++*+++ + 

+++ ++ * ++ + 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

Y 



103 



D01DS A = TAN{2*C> 

RUN 

PROGRAM POLAR 

++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS <ABS> 
? 6 

X INCREMENT = .2 

Y INCREMENT = .333333 

* 

* 

* 

* 

* 

* 

* 

+ * + 

* 

+ * + 

* 

* 

+ * + 

+ * + + 

+ * 

+ ++ * ++ + 

+ +*+ + 

+++ + +++ 

+++ + +++ 

+ +*+ + 

+ ++ * ++ + 

* + 

+ + * + 

+ * + 

* 

* 

+ * + 

* 

+ * + 

* 

* 

* 

* 

* 

* 

* 

Y 
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00105 A=SIN<C> 
RUN 



PROGRAM POLAR 

++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS) 
? 4 

X INCREMENT ■ .133333 

Y INCREMENT - ,222222 

* 

* 

* 

+++++++ 

+ + * ++ 

+ * + 

++ * ++ 

* 

* 

* 
* 

* 
* 
* 

* 
* 
* 
Y 
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00105 A=TAN(C> 
RUN 



PROGRAM POLAR 

++++++******POLAR COORDINATE PLOT******++++++ 



ENTER VALUE OF ENDPOINTS (ABS) 




? 6 






X INCREMENT = .2 






Y INCREMENT = .333333 


* 




+ 


* 
* 

* 
* 


+ 


+ 


* 
* 
* 


+ 


+ 


* 
* 


+ 


+ 


* 


+ 


+ 


* 


+ 


+ 


* 




+ 


* 


+ 


+ 


* 


+ 


++ 


* 


+ + 


++ 


* 


+ + 


*********************#*****+#**^^ 


++ 


* 


++ 


++ 


* 


+ + 


+ 


* 


+ 


+ 


* 


+ 




* 


+ 


+ 


* 


+ 


+ 


* 
* 


+ 


+ 


* 
* 
He 


+ 


+ 


* 
* 
* 

* 


+ 


+ 


* 
* 
Y 


+ 
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Program Listing 



5 REM THIS PROGRAM GENERATES A POLAR PLOT 
10 REM OF THE FUNCTION (EQUATION) PLACED ON LINE 105 
15 REM THE FUNCTION MUST BE WRITTEN AS A=F(C) 



30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 

100 

105 

110 

115 

120 

1 

130 
135 
140 
145 
150 
155 
160 
465 
■170 
■175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
.95 
300 
305 
310 
315 
320 



PRINT 

PRINT"++++++******POLAR COORDINATE PLOT******++++++' 

PRINT 

PRINT 

PRINT 

DIM X(100)»Y(100) 

Z=90 

PRINT-ENTER VALUE OF ENDPOINTS (ABS)' 

INPUT Q 

PRINT 

PRINT'X INCREMENT =" ? Q/30 



PRINT 

PRINT'Y INCREMENT =" ?0/i8 

PRINT 

FOR J=l TO Z 

C=.06981317*J 

X ( J ) = INT ( ( < A*COS ( C > /Q+ 1 ) *30 ) + . 5 ) 
Y<J)=INT((<-A*SIN<C)/a+l)*18)+.5) 
NEXT J 
25 FOR J=l TO Z 
FOR 1=1 TO Z-J 
D=X < I ) 
E=Y(I) 

IF EOYU + 1) THEN 170 
X(I)=X(I+1) 
Y(I)=Y(I+1) 
X(I+1)=D 
YU + 1)=E 
NEXT I 
NEXT J 
R=l 

FOR K=0 TO Z-l 
IF Y<K+1)>=0 THEN 200 
NEXT K 

FOR J=0 TO 36 
R=R+K 
K=0 

IF R>Z THEN 225 
IF Y<R)=J THEN .250 
IF J=18 THEN 240 
PRINT TABOO);**'? 
GOTO 470 
T=Z+1 

GOTO 410 
FOR P=R TO Z 
IF Y<P)>Y(R) THEN 270 
K=K+1 
NEXT P 

IF K=l THEN 320 
FOR 1=1 TO K 
FOR F' = l TO K-l 
D=X<R+P-1) 
F. = X(R+P) 

IF D<=E THEN 310 
X<R+P-1)=E 
X(R+P)=D 
NEXT P 
NEXT I 
IF J=18 THEN 405 
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325 


p=-l 


330 


T=0 


335 


FOR S=0 TO K-l 


340 


IF X(R+S)=P THEN 38! 


345 


P=X<R+S) 


350 


IF P=30 THEN 370 


355 


IF POO THEN 375 


360 


IF T=l THEN 375 


365 


PRINT TABOO)?"* 1 . 


370 


T=l 


375 


IF P>60 THEN 470 


380 


PRINT TAB<P)»'+"S 


385 


NEXT S 


390 


IF T-l THEN 470 


395 


PRINT TAB<30>i"*"l 


400 


GOTO 470 


405 


T=R 


410 


FOR 1=0 TO 60 


415 


IF X<K)OI THEN 455 


420 


PRINT-+" i 


425 


FOR S=T TO R+K-l 


430 


IF X<S>=X<T> THEN 1. 


435 


T*S 


440 


GOTO 160 


445 


NEXT S 


450 


GOTO 460 


455 


PRINT"*'. 


460 


NEXT I 


465 


PRINT'X". 


470 


PRINT 


475 


NEXT J 


480 


PRINT TAB<30>*"Y" 


485 


END 



145 
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MATH WHIZ KID QUIZ 

The following program is termed a CAI (Computer Assisted 
Instruction) program. The most famous and possibly the best CAI 
system is called PLATO. Unfortunately, PLATO requires special 
equipment such as a full graphics terminal which typically uses a gas 
plasma display. Quite often the screen also will be touch sensitive. 
As you can see, the full PLATO set-up can be quite expensive. 

This program does not require the features of PLATO, but it 
does show how such systems respond. Not only does this program 
instruct with arithmetic problems, but it is also fun to play. 

fsTARTJ 



INITIALIZE VARIABLES 



GENERATE 2 NUMBERS 



USE SUBROUTINE FOR 
PROBLEM FORMAT 



INPUT USER'S 
ANSWER 



YES 




CORRECT 



NO 



REWARD 
MESSAGE 

AND 
UPDATE 



ERROR 

MESSAGE 

AND UPDATE 




ENDING MESSAGE 



INPUT CONTINUE MESSAGE 



YES 




Flowchart for Math Whiz Kid Quiz 
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odinpie nun 

RUN 

UE ARE GOING TO PRACTICE MULTIPLICA- 
TION 

WHAT IS YOUR NAME 
f KEN 

KEN-, THERE ARE ID PROBLEMS- 
THE COMPUTER WILL USE ONE OF TWO FORMS 
EITHER 
A X B = f 
OR 
A 

XB 
f 

1. b X 4 = f £4 

YOU DID IT 

S. fi X E = f lb 

EXCELLENT 

3. 4 X b = f S4 



VERY GOOD 




4. a 




XI 




f a 




NOT BAD 




5. 3 X E = 


/ ? b 


EXCELLENT 




b. 4 




X3 




f IE 




NOT BAD 





7. a x a = f b4 

HEY THATS ALRIGHT 
110 



a. i 

t 27 
EXCELLENT 
<\. 3 
_XM 
? IE 
VERY GOOD 
ID- a 

xa 

t LiM 
EXCELLENT 

LIE ARE NOD FINISHED 

THE COMPUTER HOPES YOU ENJOYED THIS 
WELL, KEN 

OF ID PROBLEMS 100* 
UERE CORRECT 
AND QV. UERE INCORRECT 
TO TRY AGAIN TYPE 1-, IF NOT D 
? D 
RUN COMPLETE 
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Program Listing 

ID REM THIS PROGRAM DEMONSTRATES THE 

20 REM CLASS OF PROGRAMS TERMED CAI 

3D REM THIS EXAMPLE GENERATES RANDOM 

MO REM PROBLEMS OF MULTIPLICATION AND 

SD REM RETURNS REWARD AND PUNISHMENT 

bO REM REMARKS AT RANDOM. 

70 REM DEFINITION OF VARIABLES 

fiO REM USERS ANSWER = A 

TO REM NUMBER OF PROBLEMS = C 

1DO REM THE NUMBERS TO BE MULTIPLIED 

= D1-, D2 

110 REM THE TRUE ANSWER = D3 

120 REM POINTER TO MESSAGE = M 

13D REM TOTAL NUMBER OF PROBLEMS = N 

mo N = 10 

ISO REM USERS NAME = N* 

IbO REM PERCENTAGE RIGHT = PI 

17D REM PERCENTAGE WRONG = P2 

ISO REM CORRECT ANSWERS = R 

110 REM WRONG ANSWERS = W 

200 REM USE RANDOMIZE SO EACH TIME 

THE 

210 REM PROGRAM IS USED WE WILL HAVE 

A 

250 REM DIFFERENT RANDOM SEQUENCE 

GENERATED 

230 RANDOMIZE 

2M0 PRINT 
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250 


PRINT f, UE ARE GOING TO PRACTICE 




MULTIPLICATION' » 


EbO 


PRINT 


EflO 


PRINT "WHAT IS YOUR NAME" 


£65 


INPUT N* 


ETO 


PRINT 


30D 


PRINT N** "i THERE ARE " * N4 




"PROBLEMS. " 


310 


PRINT 


BED 


PRINT "THE COMPUTER DILL USE ONE 




OF TWO FORMS" 


33D 


PRINT 


3140 


PRINT "EITHER" 


3S0 


PRINT " A X B - f" 


3b0 


PRINT "OR" 


370 


PRINT "A" 


360 


PRINT "X B" 


3=10 


PRINT " — " 


i|DO 


PRINT " f" 


mo 


PRINT 


itso 


PRINT 


M30 


C = 1 


^^o 


R = 


4SD 


bl = 


MbO 


REM GENERATE RANDOM NUMBERS 


M70 


Dl = INT-CRND-CO * 10} 


H60 


DE « INT-CRND-C01 * 10> 


MTO 


D3 = Dl * DS 


500 


REM BY CHANGING THE STATEMENTS 


510 


REM 1470 AND AND M60 WE CAN 



113 



520 REM CHANGE THE NUMBER OF DIGITS 

S3D REM OR THE MAGNITUDE OF THE NUM- 
BERS 

Si4Q REM TO BE MULTIPLIED. 

SSD REM BY CHANGING THE STATEMENTS! 

5b0 REM ESPECIALLY THE REMARKS AND THE 

S7D REM NUMBERS FOR CONSTANTS-, WE CAN 
TAILOR 

560 REM A GAME OR PROGRAM TO OUR 

5^0 REM TASTES. OF COURSE A PROGRAM 
MAY BE 

LOO REM RUN EXACTLY AS FOUND-, BUT 
THERE IS 

blD REM FUN AND INSTRUCTION IN MODI- 
FYING 

LED REM PROGRAMS AS WELL. 

b30 REM THE FOLLOWING SUBROUTINES 
GENERATE 

mO REM EITHER ONE OF THE TWO FORMS 
OF PROBLEMS. 

bSO ON INT-C2 * -CRND-CU}}} + 1 GOTO bbO-, baO 

bbO GOSUB 1DDD 

b70 GOTO LTD 

b30 GOSUB 1DSD 

biO REM WE HAVE RETURNED FROM THE 
SUBROUTINE 

7DD REM WE NOW NEED AN ANSWER 

710 INPUT A 

720 REM WE NOW PRINT AT RANDOM 

730 REM A MESSAGE ABOUT 
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7MD REM THE ANSWER. WE ALSO HAVE TO 

7SD REM INCREMENT THE ANSWER COUNTER. 

7b0 IF A <>D3 THEN 710 

77D GOSUB 1130 

7flD GOTO ADD 

710 GOSUB 1310 

BOO REM UPDATE THE VALUE OF C 

fllO REI1 THE NUMBER OF PROBLEMS 

320 C = C + 1 

330 IF C < = N THEN SbO 

fiMO REM UE WILL NOW CALCULATE 

flSO REM THE PERCENTAGE OF RIGHT 

at.0 REM OR WRONG ANSWERS 

370 PI = INT-C100 * R/NJ 

aflO P2 = INT-C100 * U/NJ 

aio PRINT 

TOO PRINT "WE ARE NOW FINISHED" 

110 PRINT "THE COMPUTER HOPES YOU 

ENJOYED THIS." 
120 PRINT 

130 PRINT "WELL-i"i N* 
mO PRINT "OF"i N* "PROBLEMS -■ " '■> 

Pli "*" 
ISO PRINT "WERE CORRECT." 
ISO PRINT "AND"^ PS* "*" WERE 

INCORRECT. " 
IbO PRINT "TO TRY AGAINi TYPE L-i IF 

NOT-i 0" 
170 INPUT L 
130 IF L = 1 THEN mo 
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TTD STOP 

1DDD REM THIS SUBROUTINE PRINTS 

1010 REM A HORIZONTAL PROBLEM 

1020 PRINT 

1030 PRINT CI »'. "} DH »' X"* 

D2=i " = "} 

1040 RETURN 

10S0 REN THIS SUBROUTINE PRINTS 

10bO REM A VERTICAL PROBLEM 

1070 PRINT 

lOflO PRINT Ci".*M TAB-C?}} Dl 

10^0 PRINT TAB-CbH "X » « '-, D2 

1100 PRINT TAB-C7H " — " 

1110 PRINT TAB-Cb>* 

1150 RETURN 

1130 REM THIS SUBROUTINE HANDLES 

1140 REM RESPONSES TO CORRECT ANSWERS 

USD M = INT-Cb * RND-CO}} + 1 

11L0 ON M GOTO 1170-, 11T0-, 1210-, 1230- 

1250-, 1270 

1170 PRINT "NOT BAD" 

HAD GOTO 12fi0 

HID PRINT "HEY n THAT'S ALRIGHT." 

1200 GOTO 12fi0 

1210 PRINT "YOU DID IT" 

1220 GOTO 12A0 

1230 PRINT "THAT'S CORRECT" 

1240 GOTO 12fi0 

12SD PRINT "EXCELLENT" 

12b0 GOTO 1260 
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IE70 PRINT "VERY GOOD" 

■EflO PRINT 

i,210 R = R =+ 1 

u300 RETURN 

1310 REM THIS SUBROUTINE HANDLES 

INCORRECT 
13ED REM ANSWERS AND RESPONDS 
133D n = INT-CM * RND-CD}> + 1 
13MD ON II GOTO 13SDi 1370-1 131D-. 

1410 
13S0 PRINT "SORRY-, THAT'S WRONG" 
13fc>0 GOTO 14E0 
1370 PRINT "HOW COULD YOU?" 
1360 GOTO 1M50 

1310 PRINT "THAT'S NOT RIGHT" 
1M00 GOTO 1M20 

miO PRINT "CAN'T YOU HULTIPLY?" 

1MS0 PRINT 

1M30 PRINT "THE CORRECT ANSWER IS 
"} D3 

1MM0 PRINT 

mso W = W =+ 1 

14b0 RETURN 

1M70 END 



This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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SHIP IN THE WATER 

This program allows the user to input the parameters of a hull 
and water conditions. The program returns the ampular and vertical 
displacements, as well as plotting the displacements separately. 

As we are interested in only the horizontal position of the center 
of gravity, and not the vertical, we can place it as the intersection of 
water line and lateral division of hull. 

The more sections we divide the hull into, the more precise will 
be the results as numerical integration is used, which depends on the 
number of entries for precision. 




HEADER 



INPUT PARAMETER 



GET WATER CONDITIONS 



GET WIND CONDITION 



USE LOOK UP 
TABLE 



Flowchart for Ship in the Water 



PRINT RESULTS 



GRAPH ANGULAR 
POSITION 



GRAPH VERTICAL 
POSITION 
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LATERAL DIVISION 
OF HULL 




WATER LINE 
AT EQUILIBRIUM 



Fig. 1-5— The more sections the hull is divided into, the more precise the result. 
Sample Run 



MODELING OF THE MOTION OF A HULL 
UNDER DIFFERENT SEA CONDITIONS 



** HULLS ARE ASSUMED TO DE LATERALLY SYMETRICAL ** 
** THEREFORE ONLY ENTER THE INFORMATION FOR THE ** 
** RIGHT SECTIONS. THE LEFT WILL BE MIRRORED ** 

ENTER # OF SECTIONS ? 5 

ENTER BEAM IN METERS? 30 

ENTER Y» THE LENGTH OF THE SECTION BELOW 
THE WATER LINE AT EQUILIBRIUM 
X IS THE HI STANCE FROM THE 
CENTER OF GRAVITY OF THE HULL TO 
THE CENTER OF EACH SECTION 



SECTION # .1 



1.5 



SECTION # 
Y = ? 12 



SECTION 
Y-? 11 



SECTION # 4 
Y = ? 10 
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ENTER DENSITY OF HULL 
? l".098 

TYPE OF WATER BODIES AVAILABLE 

SMALL LAKES AND RIVERS (1) 
LARGE LAKES <2> 

SMALL BAYS AND COVES <3> 
LARGE BAYS <4> 

OPEN OCEAN (5) 

TYPE? 2 

WIND SPEEDS AVAILABLE 

2M/SEC (7.2KM/HR) (1) 

5M/SEC (18KM/HR) (2) 

10M/SEC <36KM/HR) (3) 

20M/SEC (72KM/HR) (4) 

WIND SPEED? 3 

ENTER TIME INTERVAL < STEP SIZE) 

ENTER TOTAL TIME IN SECONDS ? 10 



TIME VERTICAL POSITION ANGULAR POSITION 
(SEC) (METERS) (DEGREES) 



1 
1,5 



,3 

3,5 

4 

4,5 



,61229 
1,73434 


4,89791E-8 
359.963 


2,49834 


359,915 


2,68613 
2,2433 


5,24589E~2 
,250372 


1,26507 


359.917 


2,48662E~2 
1,32621 


359,397 
,132877 


2,33268 


1,35089 


2,30337 
2,61958 


359,792 
357,06 


1,81521 


,297036 


,571803 
•,823047 


6.31512 
359,708 


•2,04294 
2,90427 


346,488 
359,431 
28.8404 


-2,32651 


8,39775 


•1 , 19069 


304,882 
296.189 
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ANGULAR POSITION PLOTTED AGAINST TIME 



FOR X! TOP = .3 BOTTOM = 10 INCREMENT = .5 
FOR V: LEFT = RIGHT = 360 INCREMENT = 6 

I . t . ♦ . I I I • • I I .....;... I 

- * + 



, + 
, + 



. + 
. + 



. + 
. + 



+ 
+ 



VERTICAL POSITION PLOTTED AGAINST TIME 



FOR X! TOP = ,5 BOTTOM = 10 INCREMENT = ,5 

FOR Y: LEFT = -25 RIGHT = 25 INCREMENT = ,833333 

_ + 



+ 



+ 
•f 



+ 
+ 



+ 
+ 
+ 
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Program Listing 



100 HEM 

200 PRINT 

300 PHIM 

400 PRINT 

500 PRINT 

600 PHINT 

700 PKIN I"---- — - — . .„ 

800 PHINP'MODELING OF THE MOTION OF A HULL" 

900 PHINP'UNOFR DIFFERENT SEA CONDITIONS" 

1000 PHINT" —,n 

1100 HEM MODEL NEGLECTS VISCOUS DAMPING ACTION 

1200 HEM OF THF WATER. THUS IF THE HESONANT FREQUENCY AND 

1300 REM AND THE PERIOD COINCIDE. THE HULL WILL APPEAR TO 

1400 REM JUMP OUT OF THE WATER. 

1500 DIM A(50) ,Y(50) 

1600 DIM E4(250> 

1700 DIM E3I250) 

1800 DIM tl (250) 

1900 DIM B(50) 

2000 E2x0 

2100 

2200 

2300 REM MODELING OF A SHIP'S HULL 

2400 HEM INPUT HULL CROSS SECTION 

2500 HEM INPUT X AND Y 

2600 HEM a DISTANCE FROM CENTER OF GRAVITY TO 

2700 REM CENTER OF SECTION 

2800 REM Y LENGTH OF SECTION BELOW WATER AT EQUILIBRIUM 

2900 PKIM 

3000 PRIM 

3100 PHINT 

3200 PRINT"«« HULLS ARE ASSUMED TO BE LATERALLY SYMETRICAL **" 

3300 RHINT»«« THEREFORE ONLY ENTER ThF INFORMATION FOR THF ••" 

3400 PHIMM«# RIGHT SECTIONS, THE LEFT WILL BE MIRRORED **•• 

3500 PKIM 

3600 PRINT M ENTER * OF SECTIONS"? 

3700 INPUT S 

3P0O HEM CHECK NOT TO EXCEED A (50) 

3900 IF S<1 OR S>5U THEN 4100 

4000 GOTO 04300 

4100 RHINP'NUMREW OF SECTIONS MUST fjt BETWEEN 1 AND 50" 

4200 GOTO 03600 

4300 PRINT 

4400 HEM INPUT 8FAM AND COMPUTE DISTANCE OF EACH SECTION 

4500 RHINP'EMTFR BEAM IN METERS"; 

4600 INPUT B3 

4700 IF BJ<=0 THEN 4900 

4R00 GOTO 5100 

4900 PHINfBEAM MUST BE GHEAIFR THAN 2£HO" 

5000 GOTO 04500 

5100 REM t I NO HALF REAM 

5200 H3sBJ/2 

5300 REM find WIDTH OF EACH SECTION (COMMON) 

5400 H3=BJ/S 

5500 REM FIND CENTER OF EACH SFCTION 

5600 REM WITH RESPECT TO CENTER OF GHavITY 

5700 FOR j«l To S 

58Q0 XU)*J«B3-(B3/2) 

5900 NEXT J 

6000 PRIM 

6100 PRIM«»ENTfR Y. THE LENGTH OF THE SECTION BELOW" 

6200 PHINP'THE WATER LINE AT EQUILIBRIUM" 

6300 PHINT"X IS THE DISTANCE FROM THE" 

6400 PRINT"CENTER OF GRAVITY OF THE HULL TO" 

6500 PHIM"THE CENTER OF EACH SECTION" 

6600 PRINT 
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6700 
6800 
6900 
7000 
7100 
7200 
7300 
7400 
7500 
7600 
7700 
7800 
7900 
8000 
8100 
8200 
8300 
8400 
8500 
8600 
8700 
8800 
8900 
9000 
9100 
9200 
9300 
9400 
9500 
9600 
9700 
9800 
9900 
10000 
10100 
10200 
10300 
10400 
10500 
10600 
10700 
10800 
10900 
11000 
11100 
11200 
11300 
U40Q 
11500 
11600 
11700 
11800 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 



FOR J«l To S 

PRINT"SECTION #"»JI" X="JX(J) 

PRINT»Y»"I 

INPUT Y(J> 

PRINT 

NEXT J 

PRINT 

PRINT"ENTER DENSITY OF HULL" 

INPUT SI 

IF SI <*0 THEN 7800 

GOTO 8000 

PKINT"DENSITY MUST BE GREATFN THAN ZERO" 

GOTO 7400 

HEM APPROXIMATE ROUYANCY FACTOR OF EACH SECTION 

H1=S1«9.8 

FOR J*l TO S 

R(J)=B3«Y (J)«fal 

NEXT J 

HEM MASS & MOMENT OF INTERIA OF CHOSS SECTION 

M=0 

1*0 

FOR J«l TO S 

M1«B(J>/9.8*Y(J) 

MSM*M1«2 

I»I*Ml*X(J)*2 

NEXT J 

HEM INPUT SEA ANP WIND CONDITIONS 

PHIM 

PHINT»TYPE OF WATER BODIES AVAILABLE 

PHIM" 



PHIM"SMALL LAKES AND RIVEHS (1)' 

PHINT"LARGE LAKES (2)' 

PKIM"SMALL BAYS AND COVES (3)' 

PHINT"LAHGE BAYS (4)' 

PHINP'OPEh OCEAN (5)' 

PHIM 

PKINT'TYPE'M 

INPUT S3 

S3=InTCS3) 

IF S3<1 OR S3>5 THEN 10800 

GOTO 11000 

PRINP'INPUT MAY RANGE FROM 1 TO S ONLY" 

GOTO 10300 

PRINT 

PHIM"WINO SPEEDS AVAILABLE" 

PRIM" " 

PRINT"2M/SEC (7.2KM/HR) (1)" 

ERIIvI"-5M/SEC (18KM/HR) t2)" 

PRINT"10M/SEC (36KM/HR) (3)" 

PRIM"20M/SEC (72KM/HR) (4)" 

PHIM 

PHINT"MND SPEED"; 

INPUI S4 

S4»INT(S4) 

IF S<»<1 OR S4>4 THEN 12300 

GOTO 12500 

PRIM"INPUT MAY RANGE FROM 1 TO 4 ONLY" 

GOTO 11800 

GOSUb 23600 

REM INITIALI2E INTEGRATION VARIABLES 

2 = 

21«0 

V»0 

V1»0 

A = 

A1»0 

HxO 

RUO 

QaO 

01*0 
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15600 
15700 



13700 C»0 

13800 C1»0 

13900 TsO 

14000 HEM INITIALIZE STEP SIZE 

14100 HEM INITIALIZE PRINT INTERVAL 

14200 PHIM 

14300 PHINP'EMeR TIME INTERVAL (STEP SIZE)" 

14400 INPLT 

14500 IF 0<0.1 THEN 14700 

14600 GOTO 14900 

14700 PHINP'TIMfr INTERVAL MUST BE GREATER THAN 0.1 SECONDS" 

14800 GOTO 14300 

14900 K=0 

15000 Kl*0.1/0 

15100 PHINf 

15200 REM SET * OF SECONDS OF RUNNING TIME FOR MODEL 

15300 PRINP'ENTeR TOTAL TIME IN SECONDS"! 

15400 INPUT S5 

15500 S5=InT(S5) 

if Sb<i then i59oo 

IF Sb<D THEN 16100 
15800 GOTO 16500 

15900 PKIN'P'TOTAL TIME MUST RE GREATER THAN 1 SEC" 
16000 GOTO 15300 

16100 PNINT"RUNNlNG TIME MUST BE GREATFR THAN TIME INTERVAL" 
16200 PHINP'FOR ACCURATE RESULIS RUNNING TIME SHOULD BE AT" 
16300 PRINC'LEAST 1U TIMES GREATER THAN THE TIME INTERVAL" 
16400 GOTO 15300 
16500 PHIM 
16600 PRIM 
16700 PRINT 

16800 PH1NT"TIME VERTICAL POSITION ANGULAR POSITION" 
16900 PRINT'MSEC) (METERS) (DEGREES)" 

17-0-00 PAlh1»*--m9.*»9.-9*-m-<3am*9flmm-»--wm99*9.-!*Km.»<>-'''.-.-*M.*MmMt t 

17100 REM SUM FORCES AND MOMENTS ON THE SECTIONS 

17200 E2«E2*1 

17300 REM PREDICT VERTICAL MOTION 

17400 REM A V Z ARE ACCELERATION SPEED AND POSITION 

17500 Al«F/M-9.8 

17600 V*V1*0*AI 

17700 Z»Z1*D»V1 

17800 REM PREDICT ANGULAR MOTION 

17900 REM C R ARE ACCELERATION SPEED AND POSITION 

18000 Cl-G/I 

18100 Q»Q1*D«C1 

18200 R-RltO*Ql 

18300 REM SUM NEW FORCES AND MOMENTS FOR CORRECTOR FORMULAE 

18400 K«K*1 

18500 T»T*D 

18600 GOSUB 21200 

18700 REM CORRECT VERTICAL MOTION 

18800 AsF/M-9.8 

18900 V»V1*0/2«(A*A1) 

19000 Z»Z1*D/2«(V*V1> 

19100 REM CORRECT ANGULAR MOTION 

19200 CG/I 

19300 Q«Q1*D/2«MC*C1) 

19400 R*R1*D/2»(Q*Q1) 

19500 REM PREPARE FOR NEXT STEP 

19600 V1»V 

19700 Z1»Z 

19800 Qlt(i 

19900 R1*R 

20000 if k<ki then 17200 

20100 rem find total degrees rotation 

20200 E»R«57.296 

20300 REM FIND POSITION USING MOD 360 

20400 E»360*( (E/360)-(INT(E/360)) ) 

20500 REM 

20600 E4(E2)«Z 
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20700 E3(E2)=T 

20800 El <E2)»E 

20900 PRINT T,Z,E 

21000 IF T<S5 THEN 17200 

HISS heI°cJl Z !!d sum forcers and moments on sections 

21300 F«0 
21*00 G»0 
21500 FOR J«l TO S 

?!?!! SK ^fs^ERTrCArPOSITION OF -T f SURFACE AT SECTION J 

21800 REM Ml IS LENGTH OF HULL BELOW WATER SURFACE 

21900 W=H/2«SIN(6.28318*<T/P*X(j>/L> > 

22000 Wl*Y<J!-Z-SIN(H)*MJ>** 

22100 IF *1>0 THEN 22300 

22200 WlsU 

22300 KUB(J)»«1 

22*00 G1=XIJ)*F1 

22500 REM MIRROR IMAGE GIVES NEG HALF 

22600 W»H/2«SIN (6.28318* (T/P-X (J) /L) ) 

22700 *1«Y(J)-Z*SIN<R>*MJ)*W 

22800 if *i>o Then 23000 

22900 Wl*0 

23000 F2«B(J)**1 

23100 G2«-A<J)»F2 

23200 F»F*F1*F2 

23300 G«G*Gl*G2 

23*00 NEXT J 

23500 HETURN „„_ „ 

23600 ON S3 GOTO 23700, 26200, 28700, 31200, 33700 

23700 ON S* GOTO 23800, 2**00, 25000, 25600 

23800 REM 1,1 _ 

23900 REM bMALL LAKES AND RIVEhS AT 2M/SEC 

2*000 P=0.6 

2*100 L=0.56 

2*200 H»0.02 

2*300 GOTO 36100 

2**00 REM 1,2 T r . _,.„ 

2*500 REM bMALL LAKES AND RIVERS AT 5M/SEC 

2*600 P=0.8 

2*700 L»0,1 

2*800 HaO.05 

2*900 GOTO 36100 

25000 REM 1,3 

25100 REM SMALL LAKES AND RIVERS AT 1UM/SFC 

25200 P»l. 25 

25300 L*2.* 

25*00 H=0.08 

25500 GOTO 36100 

25600 REM l,* 

25700 REM SMALL LAKES ANO HIVE"S AT 20M/bEC 

25800 P = 2.5 

25900 L'10.0 

26000 HsO.25 

26100 GOTO 36100 „„,„„ 

26200 ON S* GOTO 26300, 26900, 27500, 28100 

26300 REM 2,1 

26*00 REM LARGE LAKES AT 2M/SEC 

26500 R=1.0 

26600 L=l.b 

26700 H*0.06 

26800 GUTO 36100 

26900 REM t%l 

27000 REM LARGE LAKES AT bM/SEC 

27100 P»l. 2 

27200 L=2.25 

27300 H=0.o8 

27*00 GOTO 36100 

27500 REM 2,3 

27600 REM LARGE LAKtS AT lOM/SfcC 
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27700 P*2.0 

27800 L=6.25 

27900 H»0.15 

28000 GOTO 36100 

28100 HEM 2.4 

28200 REM LARGE LAKES AT 20M/SEC 

28300 P»4,U 

28400 L»25.0 

28500 H*0.65 

28600 GOTO 36100 

28700 ON S4 GOTO 28800t 29400. 30000. .10600 

28800 HEM 3.1 

28900 HEM SMALL BAYS ANO COVES AT 2M/SEC 

29000 P»l.b 

29100 L»2.j 

29200 H«0.12 

29300 GOTO 36100 

29400 REM J. 2 

29500 REM SMALL HAYS AND COVES AT 5M/SEC 

29600 P*2.U 

29700 L=5.0 

29800 H»0.2 

29900 GOTO 36100 

30000 HEM J, 3 

30100 HEM SMALL BAYS AND COVES AT 10M/SEC 

30200 P«3.U 

30300 L=14.0 

30400 H«0.35 

30500 GOTO 36100 

30600 HEM 3.4 

30700 HEM SMALL BAYS AND COVES AT 20M/SEC 

30800 P=6.0 

30900 L=56.0 

31000 Hal.* 

31100 GOTO 36100 

31200 ON S4 GOTO 31300, 31900, 32500. 33100 

31300 HEM h.1 

31400 HEM LAHGE BAYS AT 2M/SEC 

31500 P=2.0 

31600 L=3.1 

31700 HsQ.15 

31800 GOTO 36100 

31900 HEM *,2 

32000 HEM LAHGE BAYS AT 5M/SEC 

32100 P=2.<* 

32200 L=9,o 

32300 H = 0,ii5 

32400 GOTO 36100 

32500 HEM 4.3 

32600 HEM LAHGE BAYS AT 10M/SFC 

32700 P=4.25 

32800 L=28.0 

32900 Hao./ 

33000 GOTO 36100 

33100 HEM <♦,<» 

33200 HEM LARGE BAYS AT 20M/SFC 

33300 PsS.b 

33400 L=110.0 

33500 H=2.rt 

33600 GOTO 36100 

33700 ON S4 GOTO 33800. 34400, 35000. 35600 

33800 REM b.l 

33900 REM OPEN OCEAN AT 2M/SEC 

34000 Pa3.S 

34100 L=20.0 

34200 H»0.S 

34300 GOTO 36100 

34400 HEM b,2 

34500 HEM OPEN OCEAN AT 5M/SEC 

34600 P»4.b 
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34700 L=30.0 

34R00 H=0. /5 

34900 GOTO 36100 

35000 HEM b.3 

35100 HEM OPEN OCFAN AT 10M/SF.C 

35300 P=7.0 

35300 L=S0.O 

35400 H=2,0 

35500 GOTO 36100 

35600 REM Si4 

35700 REM UPEN OCEAN AT 20M/SEC 

35800 P=14.0 

35900 L=300.0 

36000 H37.b 

36100 HETLKN 

36200 «EM GRAPHICS ROUTINES 

36300 REM FIRST PLOT ANGULAR POSITION 

36400 QU=0 

36500 Ol=3b0 

36600 Q2a£j<l-) 

36700 Q3=EJiE2) 

36800 Q4=C 

36900 PnIM 

37000 PRIM 

37100 PRIM"ANGULAR POSITION PLOTTED AGAINST TIME" 

37200 PRIM" " 

37300 PRINT 

37400 GOSLd 39500 

37500 REM NO* *F PLOT VERTICAL POSITION 

37600 OU=-25 

37700 Ol=2b 

37800 Q2=E3!1) 

37900 Q3=EJ(E2) 

38000 Q4=C 

38100 FOR j=l TO E2 

38200 El <J)=E4 (J) 

38300 NEXl J 

38400 PRIM 

38500 PRIM 

38600 PKIM"VEHTICAL POSITION PLOTTED AGAINST TIME" 

387 PRINT" " 

38B00 PRIM 

38900 GOSLH 39500 

39000 STOP 

39)00 REM NOLI INF. FOR PLOTTING (SURPLUS THE Y VALUE 

39200 Y = E1 (N) 

39300 RETLkN 

39400 HEM PLOTTING SUBROUTINE 

39500 N=0 

39600 Q5=(Ul-U0)/60 

39700 U6«0 

39900 FOR A = 02 TU Q3 STEP Q4 

40000 N=N*1 

40100 GQSlb 39200 

40200 IF Ob x THEN 42800 

40300 IF Gb = 20 THEN 40600 

40400 PRINT " . "» 

40500 GOTO 40800 

40600 PRINT » - "t 

40700 Q6»lu 

40800 IF Y > Gl THEN 42500 

40900 IF Y < GO THEN 42500 

41000 Q7=Gu*2«Q5 

41100 £=Q7*0.5«Q5 

41200 IF Z<Y THEN 42200 

41300 Q6=G6*1 

41400 IF Z-Y>32«Q5 THEN 42000 

41500 IF /!-Y>sQs THEN 41800 

41600 PRINT " ♦" 
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41700 GOTO 43400 

41800 P*INT " ♦» 

41900 GOTO 43400 

42000 PKIM "♦«> 

42100 GOTO 43400 

42200 Q7s(i7*3«Q5 

42300 PKIM " »| 

42400 GOTO 41100 

42500 PHINT "OFF SCALE. <X,Y) = " « A ; " , '• J Y 

42600 Q6sCib*l 

42700 GOTO 43400 

42800 PRINT 

42900 PHIN1 "FOR 

43000 PHIM "FOP. 

43100 PHINT 

43200 PKIM 



A 


TOP = 


"IC?I» 


BOTTOM = 


"JU3;" 


INCREMENT a "JQ4 


Y 


LEFT = 


»»go;" 


NIGHT = 


"iQi;" 


INCREMENT = "JQ5 



I, 



43300 GOTO 40600 
43400 NEXT X 
43500 HETUkN 
43600 END 
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LEAP FROG 

The game of leap frog is an amusing way to learn the "look 
ahead logic." You must carefully think of advance moves if you are 
going to win in a reasonable number of moves. 

You indicate the start and end of each leap with a number from 1 
to 11. One (1) is the position to the immediate left, while 11 is the last 
position to the right. Figure 1-6 shows some sample moves. 




SET UP FROGS AND COUNTER 



OUTPUT HEADER 



INPUT MOVE 




YES 



UPDATE DISPLAY 



UPDATE COUNTER 



NO /WINNING 
MOVE 



YES 




Flowchart for Leap Frog 
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GGGGG — BBBBB 



Fig. 1 -6 — Move 1 is allowed because the frog is landing in an empty space. Move 
2 is illegal because there is already a frog in the spot you will land in. Move 3 is 
also illegal because you may jump only over one frog at a time. Move 4 is 
permissible. You don't always have to jump over another frog. 



Sample Run 



RUN 

THE GAME OF LEAP FROG 

OUR GAME STARTS AS: 

GGGGGSBBBBB 

UE MUST END AS 

BBBBBSGGGGG 

TO WIN- 

NOTE THE S IS THE EMPTY SPACE. 

WHAT IS YOUR MOVE {START-, END! 

t flib 

CURRENT PATTERN OF FROGS IS 

BBBBBGGSGGG 

WHAT IS YOUR HOVE -[START-, END} 

? lD-.fi 

CURRENT PATTERN OF FROGS IS 

BBBBBGGGGSG 

WHAT IS YOUR HOVE {START-, END} 

f 

CURRENT POSITION OF FROGS IS 

BBBBBSGGGGG 

YOU HAVE DONE IT-, IN ONLY X MOVES 

DO YOU WANT TO TRY AGAIN? 
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TYPE 1 TO CONTINUE-. 2 TO STOP 

t 2 

RUN COMPLETE 

NOTE THE X IN THE LINE 

YOU HAVE DONE IT IN ONLY X MOVES 

IS THE AMOUNT OF MOVES YOU TOOK TO WIN, 



Program Listing 



ID REM THIS IS THE GAME OF LEAP FROG 

ED REM THERE ARE S GREEN FROGS LA- 
BELLED 

3D REM WITH G'S AND S BROUN FROGS 

140 REM LABELLED WITH B'S 

SD REM THERE IS A SINGLE SPACE LEFT 
OVER 

bO REM AND IT IS IN THE MIDDLE BE- 
TWEEN 

7D REM THE GREEN AND BROUN FROGS. 

AO REM TO DIN UE MUST MOVE ALL THE 

ID REM GREEN FROGS TO THE RIGHT AND 
ALL 
1DD REM THE BROUN FROGS TO THE LEFT 
120 REM SET UP DIM FOR FROGS- 
130 DIM A5-C12} 
IMD REM SET UP COUNTER 
ISO C = D 
lb AS-Cl* = "G" 
17D A*{2> = ••G" 
ISO AS-C3} = "G" 
1=10 AS-CMJ = "G** 
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euu 

E10 

EEO 

S30 

EMD 

BSD 

SbD 

E7D 

EflD 
2TD 

30D 

31D 

3SD 

330 

3M0 

3SD 

3b0 

37D 

3BD 
3flS 

3T0 
MOO 

MID 
MED 
MMO 
M50 

ULD 
MflO 
MTO 



A¥13J = ' 
A*"Cb> = ' 

A$-C7> = * 
A^-CB> = ' 
AS-H3- = * 
AS-CIO* = 
ASKll} = 
PRINT 



PRINT "THE GAPIE OF LEAP FROG" 
PRINT " " 

PRINT 

PRINT 

PRINT "OUR GAME STARTS OFF AS:" 

PRINT 

PRINT "GGGGGSBBBBB" 

PRINT 

PRINT "UE I1UST END AS" 

PRINT "BBBBBSGGGGG" 

PRINT "TO WIN- " 

PRINT "NOTE THAT S IS THE 

EMPTY SPACE. " 

PRINT 

PRINT "WHAT IS YOUR MOVE -[START-, 
END}" 

INPUT S-, E 

IF ABS*S - E>>E THEN MSB 

GOTO MAO 

PRINT "SORRY-, YOUR LEAP IS TOO 
LARGE" 

GOTO 3=10 

IF A*{S> = "S" THEN SID 

IF A*-CE} = "G" OR A$-CE> = "B" 
THEN SSD 
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SDD GOTO STD 

SID PRINT "HEY-, YOU A CANNOT START 

YOUR LEAP' ' 
SEO PRINT "WITHOUT A FROG-, YOU HAVE 

GIVEN THE" 
S3D PRINT "LOCATION OF THE SPACE-" 
SMO GOTO 3TD 
SSD PRINT "HEY-, YOU CANNOT END YOUR 

LEAP" 
5b0 PRINT "WITHOUT A SPACE-, YOU HAVE 

GIVEN THE" 

S7D PRINT "LOCATION OF A FROG" 

SSD GOTO 310 

SID B* = AS-CSl 

bOO ASKS* = "S" 

blO AS-CE} = B* 

b£D D* = AS-Cll 

b30 FOR I = £ TO 11 

bMO D* = D* + A$-CI> 

bSO NEXT I 

bbO PRINT 

b70 PRINT "CURRENT PATTERN OF FROGS 
IS:" 

bBO PRINT D£ 

blO C = C + 1 

70D IF D* = "BBBBBSGGGGG" THEN 7ED 

71D GOTO 3 C 1D 

7E0 PRINT 

730 PRINT "YOU HAVE DONE IT-, IN ONLY 
"• n Ci "I10VES" 
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mo PRINT 

7SD PRINT "DO YOU WANT TO TRY 

AGAIN?' * 
7bD PRINT "TYPE 1 TO CONTINUE-, 2 TO 

STOP' ' 
77D INPUT C 
7A0 IF C = 1 THEN ADD 
710 STOP 
ADD PRINT 
AID GOTO ISO 
A20 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 209 in Section II. 
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COMPUTERIZED HANGMAN 

This amusing algorithm is designed to test your ability to guess 
words. The computer will choose at random from a list of words. In 
this program, the DATA statements have been written with one 
word per line, so that the game player may easily change the words. 

You guess at a letter in the word. The computer then responds 
with the number of times that letter appears in the word, if at all. 

After a number of unsuccessful tries, you may be hanged by the 
computer. Good luck. 



Flowchart for Computerized Hangman 




HEADER 



CHOOSE WORD 



ASK FOR LETTER 




YES 



DISPLAY NUMBER 

OF OCCURRENCES 



INPUT GUESS 



YES 




WIN 
MESSAGE 



HANGMAN 
MESSAGE 



FLAG = FLAG + 1 




HUNG 

[yes 



NO 



YES 




iqe; 



Sample Run 

RUN 

THE COMPUTER HAS PICKED AT 

RANDOM A WORD 

CONTAINING 11 CHARACTERS 

TIME TO START-, BE CAREFUL-, YOU 

DON'T UANT TO BE HUNG FROM 

THE GALLOWS 

WHAT LETTER 

+ S 

THE LETTER S OCCURS M TIMES 

WHAT DO YOU THINK THE WORD IS 

t MISSISSIPPI 

WOW-, YOU GUESSED IT 

YOU MUST KNOU THE LEXICON FRONT 

TO BACK 

WANT TO TRY AGAIN 

TYPE 1 TO GO AGAIN-, 5 TO STOP 

f 2 

CHICKEN 

RUN COMPLETE 

RUN 

THE COMPUTER HAS PICKED AT 

RANDOM A WORD 

CONTAINING S CHARACTERS 

TIME TO STARTi BE CAREFUL-, YOU 

DON'T WANT TO BE HUNG FROM 

THE GALLOWS. .. 

WHAT LETTER 

fX 
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THE LETTER X OCCURS 2 TIMES 

It'HAT DO YOU THINK THE WORD IS 

t XEROX 

UOIih YOU GUESSED IT 

YOU MUST KNOU THE LEXICON FRONT 

TO BACK 

WANT TO TRY AGAIN 

TYPE 1 TO GO AGAIN-, 2 TO STOP 

f .2 

CHICKEN 

RUN COMPLETE 



Program Listing 



10 REM THIS IS THE GAME 

2D REM OF HANGMAN 

3D REM THE COMPUTER WILL CHOOSE A WORD 

MD REM IN ENGLISH AT RANDOM 

SO REM EACH TIME IT IS YOUR TURN-, 

LO REM YOU PICK A LETTER-, THE COMPUTER 

WILL 
70 REM TELL YOU HOW MANY TIMES IT 

OCCURS IN THE WORD 
fiO REM YOU THEN TRY TO GUESS THE WORD 
TO REM AFTER A CERTAIN NUMBER OF 
GUESSES-, IF 
100 REM YOU HAVE NOT GUESSED THE 

WORD THE 
110 REM COMPUTER WILL HANG YOU- 
120 M = 
130 R = INT-C2S * RND-C03-} + 1 
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1MD FOR I = 1 TO R 

1SD READ W* 

lbO NEXT I 

17D L = LEN-CW*} 

IfiD PRINT 

nO PRINT "THE COMPUTER HAS PICKED 

OUT AT" 
£00 PRINT "RANDOM A WORD" 
ElO PRINT "CONTAINING " ; L* " 

CHARACTERS" 
EEO PRINT 
E30 PRINT "TIME TO START-, BE CAREFUL, 

YOU" 
EMO PRINT "DON'T UANT TO BE HUNG 

FROM" 
ESO PRINT "THE GALLOWS..." 
EbO PRINT 

E7D PRINT "WHAT LETTER" 
EflD INPUT L* 

ETO IF LEN-CL*} >1 THEN 310 
300 GOTO 3ES 
31D PRINT "DON'T CHEAT-, ONLY 1 

LETTER AT A TIME. " 
3SD GOTO EbO 
3ES J = D 
33D FOR I = 1 TO L 

3M0 IF SUBSTRtU*-,!-,!} = LS THEN 3b0 
350 GOTO 370 
3b0 J = J + 1 
370 NEXT I 
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3fi0 PRINT 

310 PRINT "THE LETTER":, L*i " 

OCCURS 'M JSi " TIMES" 
ilOO PRINT 
MID PRINT "WHAT DO YOU THINK THE 
WORD IS" 
l»20 INPUT B$ 

425 IF LEN-CBSIOWS THEN 5b0 
430 IF B$ Old* THEN LOO 
440 PRINT 

450 PRINT "W0W-, YOU GUESSED IT" 
4b0 PRINT "YOU MUST KNOW THE LEXICON 

FRONT 
470 PRINT "TO BACK" 
4fl0 PRINT 

1410 PRINT "WANT TO TRY AGAIN" 
500 PRINT "TYPE 1 TO GO AGAIN-. 2 TO 

STOP* ' 
510 INPUT C 
550 IF C = 1 THEN 550 
53D PRINT "CHICKEN" 
540 STOP 
550 GOTO 130 
5b0 PRINT 
570 PRINT "REMEMBER-, THERE ARE":, 

L". "CHARACTERS" 
SflO PRINT "IN THE RANDOM WORD" 
STO GOTO MOO 
hOO PRINT 
hlO PRINT "SORRY-, WRONG WORD" 
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led n = n + i 

b30 ON II GOTO t4D, bbO-, bfiO-, 710-, 

730-, 7S0-, 77Di ADD 
ma PRINT "YOU ARE SENTENCED TO 

HANG" 
b50 GOTO EbO 
bbO PRINT "THE GALLOWS ARE NOLI 

ERECTED" 
b?0 GOTO EbD 
bfiO PRINT "THE COMPUTER THINKS THIS 

ROPE WILL BE LONG" 
blO PRINT "ENOUGH FOR YOUR HANGING' 
7DD GOTO SbD 
71D PRINT "HOPE THE ROPE IS NOT TOO 

TIGHT AROUND YOUR NECK" 
7ED GOTO EbO 
730 PRINT "THE HANGMAN IS PREPARING 

THE TRAP DOOR" 
7M0 GOTO EbO 
750 PRINT "THE SPRING IS SET ON THE 

TRAP DOOR" 
7b0 GOTO EbO 
770 PRINT "THIS IS YOUR LAST CHANCE 

YOU STILL MAY" 
7fi0 PRINT "BE SAVED FROM HANGING" 
710 GOTO EbO 
flOO PRINT "THE TRAP DOOR IS OPEN-, 

YOU ARE HUNG" 
fllO PRINT "GOOD-BYE-, CRUEL WORLD" 
BED GOTO MAO 
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fl3D DATA XEROX 
AMD DATA MUSHROOM 
flSO DATA AMERICA 
flbO DATA COMPUTER 
B70 DATA TELEVISION 
380 DATA ATLANTIC 
fiTO DATA MISSISSIPPI 
TOO DATA GAMES 
11D DATA HOUSE 
120 DATA PACIFIC 
T30 DATA BEAR 
1MQ DATA BLANKET 
T50 DATA CORVETTE 
IbO DATA MARBLE 
170 DATA ELECTRONICS 
TflO DATA INTEGRATED 
110 DATA CIRCUITS 
1DDD DATA PRETZEL 
1010 DATA VITAMIN 
1020 DATA CONTAINER 
1D30 DATA WHEAT 
10M0 DATA DEXTROSE 
10S0 DATA PEOPLE 
IDbO DATA FAMILY 
1070 DATA PROGRAM 
1030 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 211 in Section II. 



YOUR CHEATING COMPUTER 

This game lets you be a private eye. You must find a complete 
sequence of letters picked at random by the computer. A is lowest 
and Z is highest; therefore, if you input H and the computer responds 
too low, the letter must be between I and Z inclusively. 

But there is a catch. As you get better, the computer starts 
cheating. It lies to you about whether the letter is high or low. Of 
course, if the guess is correct, it will not lie. 

(sTARTj 

_r_ 



HEADER 



READ DATA 



BUILD RANDOM 
SEQUENCE 



Flowchart for Your Cheating Computer 



SET UP COUNTERS 



INPUT GUESS 



USE CHEAT 



OUTPUT MESSAGE 




MESSAGE 



@ 
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Sample Run 



THIS PROGRAM LETS YOU BE: A DETECT I ME 
IT PICKS A LETTER SEQUENCE 

WHICH YOU MUST GUESS 
ONE LETTER AT A TIME 
TO MAKE THIS GAME UEEY DIFFICULT 

THE PROGRAM CHEATS 

ON EACH LETTER 

WITH THE CHEATING A 

FUNCTION OF HOW WELL YOU DID ON THE PREOIOUb TRIEb 
OBVIOUSLY THE FIRST TRY WILL BE -'HONEST' 
THE SEQUENCE IS SET UP FOR YOUR TRIAL 
THE CHANCES THAT I WON'T CHEAT ARE 100 % 
WHAT IS YOUR GUESS'! 1 Q 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? W 
NOPE - YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? S 
NOPE ■••■ YOU ARE TOO HIGH 
WHAT IS YOUR GUESS? R 
OK •- YOU GOT THIS LETTER 
THE SEQUENCE 3 FAR IS R 

THE CHANCES THAT I WON'T' CHEAT ARE 98,3333 % 
WHAT IS YOUR GUESS': 1 M 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? T 
NfiF'F ■- YOU ARE TOO HIGH 
WHAT' IS YOUR GUESS? P 
NOPE YOU ARE TOO LOW 
WHAT IS YOUR GUESS? R 
OK •••• YOU GOT THIS LETTER 
THE SEQUENCE SO FAR IS RR 

THE CHANCES THAI I WON'T CHEAT ARE 96,6944 % 
WHAT IS YOUR GUESS ■ Q 
OK -• YOU GO)" THIS LETTER 

THE SEQUENCE SO FAR IS RRO 

THE CHANCES 'THAT I WON'T CHEAT ARE 90,2481 % 

WHAT IS YOUR SUE SSI' A 

OK - YOU GO"! THIS LETTER 

f Ml" >-.-EQU! NCR ST) T AR lb F-RQA 

•|l-i- i HANTS? THAT I WOA ' I CHLa I ARE 84,23:1.6 a 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

AGPE •-• YOU ARE TOO HIGH 



WH a i I ■:• ! Aii 



OW 



Ni":Ti : TOO ARE TOO LOW 

;,.,!-; AT is i OUR GUESS": "i" 

NOPi; : i'A-i ARE 'TOO LOW 

WHAT LB YOUR G^ESS? 

NOi-r fOU ART 'i'OO TOW 
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OK - YOU GOT THIS LETT EI R 

THE SEQUENCE SO EAR IS ERQAX 

THE CHANCES THAT I WON'T CHEAT ARE 83*6<V77 7„ 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? B 

NOPE •- YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? C 

NOPE ■- YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? L 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Z 

NOPE •■•■ YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? f 

NOPE •■- YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? R 

NOPE ■•■■ YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? Q 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Q 

NOPE ■•■• YOU ARE TOO HIGH 

WHAT IS YOWR GUESS? N 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? 

NOPE •■■• YOU ARE TOO HI OH 

WHAT IS YOUR GUESS? M 

OK ■•■■ rOU GOT THIS LETTER 

THE SEQUENCE SO EAR IS RRQAXM 

THE CHANCES THAT I WON'T CHEAT ARE 83,1432 % 

WHAT IS YOUR GUESS? M 

NOPE •■•• YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHA"I IS YOUR GUESS? J 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUI;- S3? M 

NOPE YOU ARE TOO LOU 

WHAT IS YOUR GUESS? U 

NOPE •■•• YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? T" 

OK •- YOU GOT' THIS LETTER 

THE SEQUENCE SO EAR IS RRQAXMT 

THE CHANCES THAT" I WON'T' CHEAT ARE 82,3513 % 

OK ••■• YOU GOT" THIS LETTER 

THE SEQUENCE SO TAR IS RRQAXHTG 

THE CHANCES 'THAT 1 WON'T CHEAT ARE 76.8613 % 

WHAT IS r'OUK GUIiRTOT U 

OK •- YOU GOT THIS LETTER 

i • i i : ... I'Uf vi i . :.)U I- AK i. • RKOTi mi I bU 

i :■ i p c : i : m n i .:; I- S "I IT A T i w N ' "I C l-l E A "f" a P E 7 1 ,. 7 3 7 2 % 

WHAT Ir, YOUR GUP SET? H 
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NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? I 

OK - YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS RRQAXMTGUI 

DA CHAMPION HAS STRUK AGIN 



NUMBER OF TRIES 45 
PROBABILITY OF CHEATING 

ON ALL TRIES 70,7807 % 
THE TOTAL SEQUENCE IS RRQAXMTGUI 



TRY AGAIN (YES/NO) ? YES 

THE SEQUENCE IS SET UP FOR YOUR TRIAL 

THE CHANCES THAT I WON'T CHEAT ARE 100 % 

WHAT IS YOUR GUESS? M 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? V 

OK -• YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS V 

THE CHANCES THAT I WON'T CHEAT ARE 97.7778 % 

WHAT IS YOUR GUESS? A 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? C 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? E 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? H 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? K 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? I... 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? P 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? S 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? U 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? W 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? X 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Y 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? Z 

OK •- YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS MZ 

THE CHANCES THAT I WON'T CHEAT ARE 97.2764 "/, 

WHAT IS YOUR GUESS? M 

OK - YOU GOT THIS LETTER 

THE SEQUENCE 30 FAR IS VZM 

THE CHANCES THAT I WON'T CHEAT ARE 90.7913 " 

WHAT' IS YOUR GUESS? M 

NOPE "YOU ARE TOO LOW 

WHAT IS YOUR GUESS? V 

NOPE •- YOU ARE TOO HIGH 
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WHAT 
NOPE 
WHAT 

nope: 

WHAT 

nope: 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

OK - 

THE : 

THE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

OK ••• 

THE 

THE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 



IS YOUR GUESS? T 
-' YOU ARE TOO HIGH 
IS YOUR GUESS? R 

- YOU ARE TOO HIGH 
IS YOUR GUESS? P 

•- YOU ARE TOO HIGH 
IS YOUR GUESS? 
YOU ARE TOO LOW 
IS YOUR GUESS? N 

- YOU ARE TOO HIGH 
IS YOUR GUESS? Q 

- YOU ARE TOO HIGH 
IS YOUR GUESS? P 

- YOU ARE TOO HIGH 
IS YOUR GUESS? N 

- YOU ARE TOO HIGH 
IS YOUR GUESS? H 
YOU ARE TOO LOW 

IS YOUR GUESS? K 

- YOU ARE TOO HIGH 
IS YOUR GUESS? J 

- YOU ARE TOO HIGH 
IS YOUR GUESS? I 

- YOU ARE TOO HIGH 
IS YOUR GUESS? E 

■~ YOU ARE TOO HIGH 
IS YOUR GUESS? G 

- YOU ARE TOO HIGH 
IS YOUR GUESS? A 
YOU ARE TOO LOW 

IS YOUR GUESS? D 

- YOU ARE TOO HIGH 
IS YOUR GUESS? B 

TOO LOW 
GUESS? C 
THIS LETTER 
SO FAR IS VZMC 

WON'T CHEAT 



YOU ARE 

IS YOUR 

YOU GOT 
SEQUENCE 
CHANCES THAT I 

IS YOUR GUESS 

- YOU ARE TOO 
IS YOUR GUESS 

- YOU ARE TOO 
IS YOUR GUESS 

- YOU ARE TOO 
IS YOUR GUESS 

- YOU ARE TOO 
IS YOUR GUESS 
YOU ARE 
IS YOUR 
YOU GOT 

SEQUENCE 
CHANC 



ARE 90,4886 % 



H 
HIGH 

K 
HIGH 

H 
HIGH 

F 
HIGH 



TOO 
GUES 
THIS 
: SO F 
TH AT 



OW 



IS YOUR 

YOU ARE 

IS YOUR 

YOU ARE 

IS YOUR 

•••• YOU ARE TOO 

IS YOUR GUESS 



GUEi 

TOO 

GUES 

TOO 

GUES 



LETT* 
«iR IS 
I WON 

:> ? ii 
...ow 



:mce 

CHE 



AT ARE 89,4832 % 



il 



LOW 



HIGH 

' 
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NOPE •- YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? N 

OK ■- YOU GOT THIS LETTER 

THE SEQUENCE SO FAR IS UZMCEN 

THE CHANCES THAT I WON'T CHEAT ARE 88,2901 % 

WHAT IS YOUR GUESS'! 5 M 

NOPE - YOU ARE TOO HIGH 

WHAT IS YOUR GUESS? F 

NOPE YOU ARE TOO LOW 

WHAT IS YOUR GUESS? J 

NOPE ■- YOU ARE FOG HIGH 



WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

OK •- 

THE 

THE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

OK ~ 

THE 

THE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHA 

NOPE 

WHAT 

NOPE 

WHAT 

OK - 

THE 

THE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

NOPE 

WHAT 

OK - 

THE 



IS YOUR GUESS? G 
YOU ARE TOO LOW 
IS YOUR GUESS? I 
YOU ARE TOO LOW 
IS YOUR GUESS? L 

- YOU ARE TOO HIGH 
IS YOUR GUESS? K 

- YOU ARE TOO HIGH 
IS YOUR GUESS? H 
YOU GOT THIS LETTER 

SEQUENCE SO FAR IS VZMCENH 
CHANCES THAT I WON'T CHEAT 

IS YOUR GUESS? T 

YOU ARE TOO LOW 

IS YOUR GUESS? X 

- YOU ARE TOO HIGH 
IS YOUR GUESS? U 

TOO LOW 
GUESS? W 
THIS LETTER 



ARE 87,5543 % 



YOU ARE 
IS YOUR 
YOU GOT 
SEQUENCE 
CHANCES 
IS YOUR 
YOU ARE 
IS YOUR 
YOU ARE 
IS YOUR 



30 FAR IS 

THAT I WON 

M 



VZMCENH U 

T CHEAT ARE 



86,0951 % 



...OW 



T I: 



YOU ARE TOO 
YOUR GUESS 

YOU ARE TOO 
YOUR GUESS 

YOU ARE TOO 
YOUR GUESS 



I 

YOU GO 
SEQUENC 
CHANCES 

IS YOU 



GUEJ 

TOO 

GUESS? M 

TOO LOW 

GUESS? R 

IGH 
P 

IGH 


!IGH 
? N 
LETTER 



f'H; 



SO FAR- 
HAT I WONH 
GUESS? M 
■■■• YOU ARE TOO HIGH 
IS YOUR GUESS? B 
YOU ARE TOO LOW 
IS YOUR GUESS? K 
■■•• YOU ARE TOO HIGH 
IS YOUR GUESS? F 
YOU GOT THIS LETTEI 
SEQUENCE SO FAR 
BOSS ■-- THIS GUY 



MZMCENHWN 
T CHEAT AR 



85,1385 



UZMCf 
CHAMf 



:nhwnf 

' I ON SI- 



MATER I AL 
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NUMBER OF TRIES 70 

P R B A B 1 1... I T Y F C H E A T I N G 

ON ALL TRIES 83,7195 % 
THE TOTAL SEQUENCE IS MZMCENHWNF 



TRY AGAIN (YES/NO) ? NO 



UN COMPLETE 



Program Listing 

100 HEM THIS PROGRAM "LEARNS" HOW TO CHEAT 

200 REM TO USE IT JUST TYPE *UN, 

300 PRINT "THIS PROGRAM LETS YOU BE A DETECTIVE" 

400 PRINT "IT PICKS A LETTER SEQUENCE" 

500 PRINT " WHICH YOU MUST GUESS" 

600 PRINF "CNF LETTER AT A TIME" 

700 PRINT "TO MAKE THIS GAME VERY DIFFICULT" 

800 PRINT " THE PROGRAM CHEATS" 

900 PRINT " ON EACH LETTER" 
1000 PKIN1 " WITH THE CHEATING A" 

1100 PRINP'FUNCTION OF HOW *ELLYOUDID ON ThE PREVIOUS TRIES" 
1200 PRINT "OBVIOUSLY THE FIRST TRY WILL RE 'HONEST'" 
1300 READ A$ 

1400 DATA AHCDEFGHIJKLMNOPQRS1UVWXYZ 
1500 DIM GS(IO) 

1600 REM GET A SEQUENCE OF TEN RANDOM LETTERS 
1700 FOR 1*1 TO 10 
1800 N*RNU(0)*1023 
1900 K»N/26 
2000 K*K-iNT(K) 
2100 KsINI (K*26*l) 
2200 IK K>26 OR K<1 THEN 1800 
2300 G$(I)=SUBSTR(AS,K«1) 
2400 NEXT I 

2500 REM SET UP COUNTFR FOR LETTER IN PRGGnESS 
2600 C1*0 

2700 REM SET UP COUNTER FOR ALL LETTERS 
2800 C2=0 

2900 REM SET UP ROINTFR TO LETTER IN QUESTION 
3000 L=l 

3100 REM SET UP PROBABILITY 
3200 P=l 

3300 PRINT "THE SEQUENCE IS SET UP FOR YOUR TRIAL" 
3400 PRINT "THE CHANCES THAT I «ONH CHEAT ARE "}P*10O»" »" 
3500 PNIM "WHAT IS YOUR GUESb"; 
3600 C1*C1*1 
3700 C2«C2*i 
3800 INPUT T* 

3900 IF LEN(TS)>1 THEN 6000 
4000 IF TiOGJ(L) THEN 5200 
4100 PRINT "OK - YUU GOT THIS LET TEN" 
4200 PRIM "THE SEQUENCE SO FAR IS "J 
4300 FOR 1*1 TO L 
4400 PRINT G$(IM 
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4500 NEXT I 

4600 PHINT 

4700 P=P-P«(l/Cl>/l5 

4800 CUO 

4900 L*L*1 

5000 IF L>10 THEN 6700 

5100 GOTO 3400 

5200 PURND(O) 

5300 if p>pi then 5500 

5400 GOTO 06500 

5500 IF T* > GS(L> THEN 5800 

5600 PHINT "NOPE YOU AHE TOO LOW" 

5700 GOTO 3500 

5800 PHIM "NOPE - YOU ARE TOO HIGH" 

5900 GOTO 3500 

S000 PHINT "ONE LETTER Al A TI^E - TURKEY" 

6100 PHIM •' THIS TRY MAKES FURTHER EFFORT WORSE" 

5,200 IF Cl<2 THEN 3500 

S300 CUC1-2 

S400 GOTO 3500 

6500 IF T*>G$<L> ThEN 5600 

6600 GOTO 05800 

6700 IF C2 > 150 THEN 7900 

6800 IF C*> 100 THEN 7700 

6900 IF Cd > 80 THEN 7500 

7000 IF C2>60 THEN 07300 

7100 PHINT "DA CHAMPION HAS 51RUK AGIN" 

7200 GOTO 8100 _„,.,, Al „ 

7300 PHIN1 "HEY BOSS - THIS GUY IS CHAMPIONSHIP MATERIAL" 

7400 GOTO 8100 

7500 PHINT "PRACTICE "AKES PERFECT - KEEP GOING " 

7600 GOTO 8100 

7700 PHIM "NOT HAD F OK A RFGUNER - HUT LOUSY IF YOU 

PLAYED BEFORE" 
7800 GOTO 8100 

7900 PRIM "HAVE YOU THOUGHT OF PLAYUjG A SIMPLER GA^E 

e~00 IK pRlNT " FIND YOUR FlNGERV" 

8100 PRIM 

8200 PHIM "NUMBER OF TRIES", C2 

8300 PRIM "PROBABILITY OF CHtATING" 

8400 PRIM " ON ALL THIE5".P*l00i« *" 

8500 PRINT "1HE TOTAL SEClUENCt IS "» 

8600 FOR 1 * 1 TO 10 

8700 PRINT (j*(I) 1 

8800 NEXT I 

8900 PRIM 

9000 PRINT 

9100 PRIM 

9200 PRINT "TRY AGAIN (YES/NO) " I 

9300 INPUT T$ 

9400 IF TS»o"YES«' AND T$o"NO" THEN 9200 

9500 IF T**"YES" THEN 1700 

9600 STOP 

9700 ENO 

An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 215 in Section II. 
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COMP-U-STORY 

This program demonstrates the use of strings in games. By 
setting up a possible scenario and then filling in the blanks, we can 
create a setting as desired. 

This type of activity is quite important in interactive games of 
which Star Warp is an example. 



INPUT STRING 



MANIPULATE STRING 



REPLACE VARIABLE 

WITH THE 

VALUE OF THE 

STRING. 



Flowchart for Comp-U-Story 

Sample Run 

RUN 

PLEASE ENTER THE FOLLOWING INFORMATION 

YOUR NAME 

f KEN 

NAME A COLOUR 

f GREEN 

NAME A PIECE OF CLOTHING 

f HAT 

A PART OF THE BODY 

f TOE 

ANOTHER PART OF THE BODY 

* HAND 

ANOTHER COLOUR 
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f ORANGE 

WHAT ARE YOU SCARED OF {BEAST} 

f MOUSE 

A ROOM IN A HOUSE 

? BEDROOM 

WHO IS YOUR HERO 

? HULK 

OUR COMPUTER STORY 

THIS IS THE STORY OF KEN UHO 

ONCE DENT FOR A WALK IN THE WOODS. 

UHILE UALKING KEN MET UP UITH A GREEN 

MOUSE UHO CHASED THE SCARED KEN. 

UNFORTUNATELY KEN FELL ON HIS TOE 

AND RIPPED HIS HAT UITH HIS HAND. 

KNOWING THAT THE MOUSE WILL EAT HIM-, 

KEN CALLS ON HIS HERO HULK. 

OUR HERO WHICH IS ORANGE DRAGS THE 

MOUSE OFF TO THE BEDROOM AND FREES POOR 

KEN. 

THE COMPUTER SAYS GOOD-BYE 

RUN COMPLETE. 
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Program Listing 

ID REM THIS PROGRAM ALLOWS YOU TO CON- 
STRUCT A 

2D REM STORY USING YOUR NAME 

30 REN AND ITEMS ASKED FOR 

£0 PRINT 

LD PRINT 

70 PRINT 

flO PRINT "PLEASE ENTER THE FOLLOWING 
INFORMATION" 

TO PRINT 

100 PRINT » 'YOUR NAME" 

110 INPUT A* 

120 PRINT "NAME OF A COLOUR" 

130 INPUT BS 

mO PRINT "NAME A PIECE OF CLOTHING" 

ISO INPUT CS 

1L0 PRINT "A PART OF THE BODY" 

170 INPUT D* 

IflO PRINT "ANOTHER PART OF THE BODY" 

no INPUT E* 

200 PRINT "ANOTHER COLOUR" 

210 INPUT FS 

220 PRINT "WHAT ARE YOU SCARED OF 
■CBEAST}" 

E23D INPUT F* 

2M0 PRINT "A ROOM IN A HOUSE" 
ESQ INPUT H$ 

2b0 PRINT "WHO IS YOUR HERO" 
E70 INPUT 1$ 
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EflD PRINT 

2TD PRINT "OUR COMPUTER STORY" 

3DD PRINT 

310 PRINT 

3E0 PRINT "THIS IS THE STORY OF " =■ 

ASi "WHO" 
330 PRINT "ONCE WENT FOR A WALK IN 

THE WOODS- ' ' 
3MD PRINT "WHILE WALKING-." "h A$* 

* 'MET UP WITH A" 
3SD PRINT B*=, " "=. G$h " WHO CHASED 

THE SCARED " =, A* ■■> "." 
3LD PRINT "UNFORTUNATELY " =, ASi 

' 'FELL ON HIS ' 'iD* 
37D PRINT "AND RIPPED HIS "^ CSn " 

WITH HIS "=> E$* "■ " 
3fl0 PRINT "KNOWING THAT THE " =, GSi 

" WILL EAT Hin-," 
3^D PRINT A$* " CALLS ON HIS HERO "i 

!*=, "•" 
MDD PRINT " OUR HERO-, WHICH IS " =, 

F$=, " DRAGS THE " =, G$ 
MID PRINT "OFF TO THE "nH*=, " AND 

FREES POOR "=. ASi "■ " 
MED PRINT 
U3D PRINT 

HMD PRINT "THE COMPUTER SAYS GOOD- 
BYE" 
4SD END 

This program also will run on the Radio Shack TRS-80 compu- 
ter with no modifications needed. 
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AUTO RALLYE 

In this auto rallye you can choose both your car and the route. 
But the better the car, the more gas it eats; and the good routes are 
more dangerous. It's all lots of fun; but be careful. Don't blow your 
engine! 




OUTPUT HEADER 



INPUT CAR AND 
ROUTE 



MORE MESSAGES 



OUTPUT, VELOCITY, 

GALLONS, MILES, 

TIME 



INPUT GAS RATE 



UP DATE 




YES 



SORRY 
MESSAGE 



YES 



WIN 
MESSAGE 



Flowchart for Auto Rallye 




YES 



PRINT CHICKEN 
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Sample Run 

PROGRAM 



THE CAR RALLY 



THIS IS THE SUPER CAR RALLY , THAT ALL 
DRIVERS IN THE WORLD WAIT FOR! ! ! ! ! ! ! ! 
THE DRIVING IS TOUGH THIS YEAR* AND 
WE ALL WISH YOU GOOD-LUCK! !!!!!!!!!!! 



CHOICE OF CARS 

MINI <1> 

LOTUS (2) 

TRANS-AM <3> 

FERRARI (4) 

CHOOSE THE CAR BY THE NUMBER AFTER IT 

REMEMBER THE BETTER THE CAR THE MORE GAS IT USES. 

WHICH CAR 

? A 

YOU NOW CHOOSE WHICH COURSE YOU WANT TO RACE ON. 

THE EASIEST COURSE IS NUMBER 1. AND IS THE STRAIGHTEST 

ROUTE. NUMBER 5 CONSISTS MOSTLY OF TURNS AND TWISTS 

WHICH COURSE DO YOU WANT <1 TO 5) ? 

? 1 

YOU Will NEED TO TRAVEL 5 MILES WITH .5 GALLONS OF GAS 

YOUR STATUS WILL BE SHOWN EACH 10 SECOND. AFTER EACH STATUS 

CHECK YOU WILL BE ASKED FOR A NEW RATE OF GAS. A RATE OF 

+10 IS HARD ACCELERATION.AND -10 IS HARD BRAKING. ANY NUMBER 

IN BETWEEN IS ALLOWABLE. 

PRFSENT VELOCITY = NO. OF GALLONS = .5 
NO. OF Mil FS = TIME PASSED = SECONDS 
WHAT IS YOUR NEW RATE OF GAS ? 10 
ROAD CONDITIONS VEHICLE AHEAD 1000 FEET 

PRESENT VELOCITY = 80 NO. OF GALLONS = .464 

NO. OF MILES = .173913 TIME PASSED = 10 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE PASSED BY 72 MPH 

PRESENT VELOCITY = 128 NO. OF GALLONS = -^S 

NO, OF MILES = .452174 TIME PASSED = 20 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE AHEAD 1000 FEET 

PRESENT VELOCITY - 158 NO. OF GALLONS = .392 

NO OF MILES = .795652 TIME PASSED = 30 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

ROAD CONDITIONS VEHICLE PASSED BY 121 MPH 

PRFSENT VELOCITY = 176 NO. OF GALLONS = .356 

NO. OF MILES - 1.17826 TIME PASSED = 40 SECONDS 

WHAT IS YOUR NEW RATE OF GAS ? 10 

DUMMY i i YOU BLEW YOUR ENGINE!! 

WHAT TYPF OF FLOWERS DO YOU WISH, AT YOUR FUNERAL?? 

YOU WANT TO TRY AGAIN t RIGHT ! ! ! ! 

1-YESi- 2--N0 ? 2 

CHICKEN 



RUN COMPLETE. 

155 



Program Listing 



10 REM IMF CAR HALL Y 

3 HKJM 

4 PRIM 

50 PNIN [M THE CAR RALLY" 

60 PKIM 

70 PKIM 

80 PKIN1"THIS IS THF SUPER CAW RALLY, THAT ALL" 

50 PRIM"DRIVERS IN THE WORLD WAIT FQW ! ! I I ! ! ! I " 
100 PHlNC'THE DRIVING IS TOUGH THIS YEAR, AND" 
110 PRINP'wE ALL WISH YOU GOOD-LUCK 1 !!!! I !!!!!! " 
120 PKIM 
130 PKIM 

140 PKIM" CHOICE OF CARS" 
150 PKIM"MIM (1)" 

160 PKIM"LOTuS (2)" 

170 PKINT"TRAnS-AM (3)"i 

180 PKIM"Ff-RRAMI (4)" 

190 PkIM 

200 PKIM"CH00SF THE CAR BY THE NUMBER AFTER IT" 
210 PKIM "REMEMBER THE BETTER THE CAR THE MORE GAS IT USES." 
220 PKIM »*HTCH CAR" 
230 INPUI CI 
240 LET tl=INT(Cl) 
250 IF Cl>4 THEN 28U 

260 if ci<i then 2ro 

270 GOTO 300 

280 PKIM "INVALID CAR NUMBER. NEW CAR ?" 
290 GO To 230 
300 PKIM 

310 IF N^=l ThEN 350 

320 PkIM "YOU NO* CHOOSE WHICH COUkSE YOU WANT TO RACE ON." 
330 PKIM "1HE EASIEST COURSE IS NUMBER 1. AND IS TuE STRAIGHTEST" 
340 PRIM "ROUTE. NU^BFK 5 CONSISTS MOSTLY OF TURNS AND TWISTS" 
350 PRIM "kHICH COURSE DO YOU wan! (1 TO 5) ?" 
360 INPUI C2 
370 LET C2=1NT (C2> 
380 IF C2<1 THEN 410 
3<5 IF Cs>b IhEn 410 
400 GOTO 4 30 

410 PMlNI "INVALID COURSE NU^HER. NEW CXUCE ?" 
420 GOTO 360 
430 It- Nisi IHEN 490 

<*40 PRINT "YOU WILL NEED TO 1 RAVEL 5- M1LFS wITH .5 GALLONS OF GAS" 
450 PRIM "YOUR STATUS wILL HE SHO*N EACH 10 SECOND. AFTER EACH STATUS" 
■460 PRIM "CHFCK YOU WILL BE ASKEn FOR A NEW RATE OF GAS. A RATE OF" 
i470 PRINT "*10 IS HAPO ACCELERATION. AND -10 IS HARD HKAMNG. ANY NUMBER 1 
480 PkIM "IN HETwEFN IS ALLOWABLE. " 
490 FOR 1=1 TO CI 
500 READ ri.M.S 
510 LET H=R/ln 
520 NEXT I 
530 LET Als.5 
540 LET wlaO 
550 LET Cl=Cl/2 
<=,*() I FT v:D 

570 PRIM 

580 LET Rlao 

590 LET T=0 

600 LET i)»0 

610 LET ul=0 

620 PRINT "PRFSENT VELOCITY = "»V;" NO. OF GALLONS = 'MAI 

630 PRINT "NO. OF MILES = "«M1;" TIME PASSED = "ITl" SEC0N0S" 

640 IF Ml >=5 THEN 1460 

650 PRIM "WHAT IS YOUH NEW RATE OF GAS "J 

660 INPUT G 

670 IF G <-10 THEN 700 
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6fio if g>io then 700 

690 GOTO 720 

700 PHIM' "NOT VALID. NEW RaIE"? 

710 GOTO 660 

720 IF G<9 THFN 780 

730 LET l*l+\ 

740 IF 2>4 THFN 760 

750 GOTO 790 

760 PHIM "DUMMY! I YOU 8LE" YOLR ENGINE! I" 

770 GOTO 1270 

780 LET 1*0 

790 LtT vaINT (R*G-M*V + V) 

800 LEI (=1 *10 

PI PHIM 

820 PHIM "H0AD CONDITIONS •» I 

830 IF V>0 THFN 00850 

840 LET ysO 

850 LET Ml=M+V/460 

860 IF C ; <0 THFN 890 

870 LET Al=Al-(G«S)/5000 

675 IF HI > = S THEN IMbB 

880 IF M<0 THEN 1380 

890 if k i=i Then 1050 
900 if ci=i Then 0980 

910 LET U=lM < <C2*l!*HNO(X> ) 

920 LET KaINT ( (3.75-C2)»NNn(A) ) 

930 IF H>0 THFN 01290 

940 IF (, >0 THEN 01340 

950 PHIM "CLFAK AND STNAIGHl" 

960 PHIM 

970 GOTO 620 

9P0 LET H=1M ( 15*35. *KNl) (X) ) 

990 LET n=H*5»Cl 
1000 IF V>H THFN 1500 
1010 Ph|m "iHROUGH CUHVE" 
1020 PHIM 
1030 LET ul=0 
1040 GOTO 620 
1050 LET E=E-<V-OS»3.0 
1060 IF E<0 THFN 1100 

1070 PhIM "VEHICLE ";E;" FEE I AHEAD" 
108 PHIM 
1090 GOTO 620 
1100 IF V-0<5 THEN 1180 
1110 PHIM "VFHICLE PASSED PY"! 
1120 LtT usV-D 

1130 PHIM D» 

1140 PHIM '» MPH" 

1150 PHIM 

1160 LET M=0 

1 170 GOTO 620 

1180 PHIM "VEHICLE HFING PASSED " 

1190 LET urlNl (25*40*RN0U! ) 

1200 PHIM "GPAYHOLND BUS IN UlHFK LANE "? 

1210 PHINfDOING'M 

1220 PHIM OS 

1230 PHIM "CPH"! 

1240 LET U=V*C 

1250 PHIM "CRASH VELOCITYs'M 

1260 PHIM D 

1270 PHIM"*HAT TYPE OF FLOWERS DO YOU *ISH» AT YOLK FLNFRAL??" 

1280 GO lu 01560 

1290 PHIM "VEHICLE AHEAD 1000 FEET" 

1300 PHIM 

1310 LET miM (25*i5*HND(A) ) 

1320 LtT Kl*l 

1330 GO To 620 

1340 PHIM "WARNING CURVE AHEAD " 

1350 LET wlsl 

1360 PHINI 
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1.5 ru nu iu ft?o 

13P0 PKIM "EXFLLENT PUT WAIT!" 

]3<30 P*IM 

1400 PWIM'TUKKEY! 1 YOU HAN OUT Of- GAS!!" 

1410 GO to 15S0 

1420 PKIM"[iCN«T KNOW HOw, BUI YOU HADF IT!!" 

1430 PHIM 

1440 Ltl Kl=u 

1450 GO Tu 6?0 

14*0 PHIM 'rue. p ( vj»ik» Mut" 

1470 PHIM 

14H0 PHINJityOU ARE LUCKY THIS YFAHJ!" 

1490 GO To ,15*0 

1500 PHIM "AHfr TEkRIRLE" 

1510 LET h=H-5*C1 

1520 PKIM H$"WAS THE SPtEO ThhOUGH I HE CUHVE" 

1530 PhIM v; " *AS YOUH SPFFI'-. BY THF iiAY 11 ) 

154U GO TO .1270 

1550 PNIM iiyoo LEAD FOOTED *»f *»is(." 

15*0 PKIM "YOU WANT TO THY AGAIN, KIOHT !!!!« 

1570 PHIM "1-YES, 2-M) "J 

1580 IfsPLl V 

159 IK V=2 THFN l*?n 

1*00 N2=l 

1*10 GO lu 164 

1*20 PHIM "CHICKEN" 

1*3 GO To 1700 

1640 HESTofit 

1*50 GO To 2?0 

1**0 OATA 45,.53»10 

1*70 OATA 60, .5, 13 

1*80 OATA 70, . 41 , 15 

1*<?0 OATA 80».39«1H 

1700 END 



An adaptation of this program designed specifically for the 
Radio Shack TRS-80 computer using Level II BASIC can be found on 
page 217 in Section II. 
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DECISIONS! DECISIONS! 

This program helps you make decisions based on weighing 
different factors. You input a category, name the items in the 
category and the factors required. Do not exceed 10 items or 5 
factors without changing the DIM statement in lines 30-60. If you 
modify, make sure you modify all the DIM statements 30-60. 




HEADER 



Flowchart for Decisions! Decisions! 



INPUT 
CATEGORY 



INPUT TYPES 
& FACTORS 



RESPONSE TO 
QUESTIONS 



PRINT RESULTS 

BEST IN EACH 

FACTOR 



PRINT OVERALL 
BEST 




FOR LOOP 



FOR LOOP 



FOR LOOP 
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Sample Run 



THE COMPUTER WILL HELP YOU MAKE DECISIONS 

BUT YOU HAVE TO HELP ME AS WELL. OF COURSE 

WHAT TYPE OF ITEM* DO YOU NEED HELP WITH 
? COMPUTERS 

FOR THE COMPUTER TO HELP YOU* IT WILL NEED 
A LIST OF COMPUTERS FROM YOU 

HOW MANY COMPUTERS WILL WE WORK WITH? 10 



ITEM * 


1 




PDP-11 


ITEM # 


':> 


? 


PDP-8 


ITEM * 


3 




TRS-80 


ITEM # 


4 


? 


PET 


ITEM # 


5 


? 


KIM 


ITEM * 


6 


? 


POLY 


ITEM # 


7 


? 


SWTPC-6800 


ITEM # 


8 


? 


MITS-8800 


ITEM # 


9 


? 


SPHERE 


ITEM # 


10 


? 


I DM -370 


THIS I 


3 THE 


CORRECT LIST? 


PDP-11 








PDP-8 








TRS-80 

t"' IT T 








f I::. 1 
KIM 








POLY 








SWTPC- 


6800 






M ITS -8 8 00 






SPHERE 








IBM -3 7 


o 







HOW MANY FACTORS ARE IMPORTANT TO YOU ? 5 



FACTOR # 
FACTOR # 
FACTOR # 
FACTOR # 
FACTOR # 



? COST 

? SOFTWARE 

? EASE OF USE 

? RELIABILITY 

? SIZE 



ARE THESE THE RIGHT FACTORS' 



COST 

SOFTWARE 
EASE OF USE 
RELIABILITY 
SIZE 

FOR EACH COMPUTERS WE WILL RATE THE FACTORS 
THE BEST RATING IS 10. THE WORST IS 
PLEASE DO NOT USE THE SAME RATING TWICE 
FOR THE SAME FACTOR! !!!!!!! 
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PDP-11 

COST RATING ? 5 

SOFTWARE RATING ? 8 

EASE OF USE RATING? 6 

RELIABILITY RATING? 8 

SIZE RATING ? 9 

PDP-8 

COST RATING ? 4 

SOFTWARE RATING ? 7 

EASE OF USE RATING? 5 

RELIABILITY RATING? 7 

SIZE RATING ? S 

TRS-80 

COST RATING ? 4 

SOFTWARE RATING ? 1 

EASE OF USE RATING? 1C 

RELIABILITY RATING? 1C 

SIZE RATING ? 10 

PET 

COST RATING ? 6 

SOFTWARE RATING ? 3 

EASE OF USE RATING? 8 

RELIABILITY RATING? 9 

SIZE RATING ? 3 

KIM 

COST RATING ? 10 

SOFTWARE RATING ? 5 

EASE OF USE RATING? 1 

RELIABILITY RATING? 1 

SIZE RATING ? 10 

POLY 

COST RATING ? 9 

SOFTWARE RATING ? 4 

EASE OF USE RATING? 2 

RELIABILITY RATING? 1 

SIZE RATING ? 5 

SWTPC-6800 

COST RATING ? 7 

SOFTWARE RATING ? 3 

EASE OF USE RATING? 4 

RELIABILITY RATING? 2 

SIZE RATING ? 5 

HITS -8800 

COST RATING ? 1 

SOFTWARE RATING ? 7 

EASE OF USE RATING? 2 

RELIABILITY RATING? 2 

SIZE RATING ? 7 

SPHERE 

COST RATING ? 3 

SOFTWARE RATING ? 9 

EASE OF USE RATING? 3 

RELIABILITY RATING? 6 

SIZE RATING ? 2 

IBM-370 

COST RATING ? 1 

SOFTWARE RATING ? 10 

EASE OF USE RATING? 1 

RELIABILITY RATING? 10 

SIZE RATING ? 1 



161 



RATINGS 



COST 

BEST RATING IS THE KIM 

ITS RATING WAS 10 

SOFTWARE 

BEST RATING IS THE IBM-370 

ITS RATING WAS 10 

EASE OF USE 

BEST RATING IS THE TRS-80 

ITS RATING WAS 10 

RELIABILITY 

BEST RATING IS THE IBM-370 

ITS RATING WAS 10 

SIZE 

BEST RATING IS THE KIM 

ITS RATING WAS 10 

OVERALL BEST RATING 



THE PDP-11 HAS THE BEST RATING 
ITS AVERAGE RATING WAS 7,2 

THE COMPUTER HOPES HE HELPED YOU!!! 



RUN COMPLETE 



Program Listing 

10 HEM 1 HIS PROGHAM HELPS TO MAKE UECISTGNS 

30 OIM A$(10) 

40 OIM bS(5) 

50 OIM w(10»5) 

60 DIM C(10) 

70 PHIM 

60 PNIM 

<30 PHIM'»ThE COMPUTER WILL HELP YOU MAKE DECISIONS" 

100 PHIM" " 

110 PHIM"BUT YOU HAVE TO HELP ME AS WELL* OF COUHSE" 

120 PHIM 

130 PHINP'KHAT TYPE OK ITEM, 00 YOU NEED HELP WITH" 

140 INPUT IS 

150 PHIM 

160 PWINP'FOK THE COMPUlEH 10 HELP YOU, IT KILL NEED" 

170 PKIM"A LIST OF "US»" FKQM YOU" 

180 PHIM 

190 PKIM"H0w MANY "|I$»" WILL WE WORK WITH"; 

?00 INPUf X 

210 IF X<2 OH X>10 THEN 190 

220 PHIM 
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230 FUR J=l TO X 
240 HKInM'ITEm * "IJ» 
250 INPLI 6i(J) 
26 NEXT J 
?7U PHIM 

280 PHINT"7HIS IS THF CORHEC I LIST?" 
290 FUH J=l TO X 
300 PHIM fli(J) 
310 NEXT J 
3?0 PKINi 

330 PNINT'HOW MANY FACTORS AKE IMPORTANT 10 YOU"* 
340 INPU1 F 

350 IF F<1 ON F>5 THEN 330 
360 PNIM 
370 FUR J=l TO F 
380 PKIM«»FACTOP * "»J» 
39 INPUT BS(J) 
400 NEXT J 
'410 PHIN1 

i420 HHINI"AKE THESF THfc RIGHl FACTOKS?" 
i430 PHIM 
1640 FUH js] TO F 
i450 PNIN1 H4(J) 
'460 NEXT J 
470 PNIM 

480 PkIM"FOR EACH " I I f, I " WE WILL HATE ThE FACTORS" 
490 PRIM"THE BEST HATING IS 10. THE WORST IS 0" 
500 PNIM»'PLEASE UO NOT UbE !t-F SAME RATING TWICE" 
510 PHIM"F0R THE SAME FACTUM!!!!!!!" 
520 PKJM 
530 FOP n=1 TO X 
540 PNIM AiMK) 
550 FUN L=l TO F 
5*0 PHIM H*(L)«" HATING"; 

570 INPLT K 
580 Q(K.L)=N 
590 NEXT L 
600 NtXT K 

610 PHIM 

620 PHIM" HATINGS" 

630 PHIM" " 

640 PHIM 

,650 FOH |*l TO F 

i660 PHIM H*(T) 

1670 Y*l 

1680 FOR N*2 TO X 

• 690 If- Q (YtT )>Q(N»T) THEN 710 

i700 Y=N 

'710 NEXT N 

720 PKIM"BEST HAIING IS THE ";A*(Y) 

730 PHIM»lTS RATING WAS "1Q<Y»T) 

740 PHIM 

750 NEXT T 

760 PHIM 

770 FOH Y=l 10 X 

780 FOP 1=1 TO F 

790 C(Y)=C (Y) ♦0(Y»T> 

800 NEXT I 

810 NEXT Y 
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820 J«l 

H30 FUK i=2 Tn A 

84 U C(J)>C(I) I H£M 008*0 

85 J=l 
8*0 NEAT J 

870 PKInT" OVEHALL BEST RATING" 

8PO PKJM" --.-.----- -<• 

890 PKINI'MHE M !Ai<J)5" HAS (HE BEST HATING" 
900 PHIN|«'ITS AVERAGE HATING *AS "iCIJI/K 
910 MHIM 

920 PHlNf'ThE CUMKUTFK HOPES HE HELHFU YOLIll 1 
930 EiNO 
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COMPUTER CRAPS 

This program lets the user input a BASIC program and then 
search for all variables found within it. Variables must be single 
character. When using the assignment statement, the LET keyword 
must be used. When printing, do not type commas (,) between 
variables, therefore; 10 PRINT A,B,C 
must be entered as 10 PRINT ABC 

This program is useful in analyzing variables to see whether 
they have been printed, if they are assigned before being used, etc. 

Of course, the clever user can use this program as a text editor. 
Remember to indent the END four spaces, pretending that a line 
number was present. Line numbers are not required with the rest of 
the lines, and the other commands will still function except the TEST 
function. 

We can modify a line or add lines whether using it with variables 
or as a text editor. 






(start) 





ENTER LINES OF TEXT 
INCLUDING END 






' 


' 






PRINT OPTIONS 
















' 


1 






' 




MODIFY 




ADD 




LIST 




1 


P 




1 


' 






" 




MODIFY 

LINE OF 

TEXT 




ADD 

LINE 

OF 

TEXT 




LIST 

CURRENT 

CONTENTS 

































TEST 



LOCATE 

ALL 

VARIABLES 




Flowchart for Computer Craps 
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Sample Run 



+++++++++++++++++++++++++++++ 

********** VARIABLES********** 
+ ++++■++++ + + + + +++++++ +++++++++ 



ENTER PROGRAM , REMEMBER TO USE LINE NUMBERS FROM 

0.1 TO A MAXIMUM OF 25 <00<LN<26> 

ENTER NO MORE THAN 5 VARIABLES PER LINE 

USE. AS THE LINE NUMBER THE SAME NUMBER AS THE 

ENTRY NUMBER SUPPLIED BY THE PROGRAM TO INSURE 

PROPER OPERATION OF THE PROGRAM 



ENTRY * 1 

? 01. LET A=B*C 

ENTRY * 2 

? 02 INPUT A 

ENTRY # 3 

? 03 INPUT B 

ENTRY * 4 

? 04- INPUT C 

ENTRY # 5 

? 05 'INPUT D 

ENTR-Y * 6 

? 06 'IF A>B THEN 08 

ENTRY * 7 

? 07 'LET C + D 

ENTR.Y # 8 

? 08 LET C + A/D 

ENTRY # 9 

? PRINT A 

ENTRY # 10 

? END 

ENTRY # 11 

? 11 END 

THE FOLLOWING OPTIONS ARE AVAILABLE 
LIST 
MODIFY 
ADD 
TEST 

OPTION? LIST 



ENTRY 


# 


1 


01 LET A=B*C 


ENTRY 


» 


■ 


02 INPUT A 


ENTRY 


# 


3 


03 INPUT B 


ENTRY 


# 


4 


04 INPUT C 


ENTRY 


# 


'i 


05 INPUT D 


ENTRY 


* 


6 


06 IF A>B THEN 08 


ENTRY 


# 


7 


07 LET C+D 


ENTRY 


# 


8 


08 LET C+A/D 


ENTRY 


* 


? 


PRINT A 


ENTRY 


# 


10 


END 


ENTRY 


# 


11 


11 END 


OPTION? 


M 




WHICH 


ENTRY 


NUMBER 


01 LEI 




i = B*C 
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E N T IE R R E P L A C E M IE N T L I N IE 
? 01 REM TEST PROGRAM 
01 REM TEST PROGRAM 

OPTION? M 

WHICH ENTRY NUMBER 

?. 9 

PRINT A 

ENTER REPLACEMENT LINE 

?. 09 PRINT 

09 PRINT 

OPTION? M 

WHICH ENTRY NUMBER 

09.. PR I NT 

ENTER REPLACEMENT LINE 

? 09 PRINT A 

09 PRINT A 

OPTION? M 

WHICH ENTRY NUMBER 

END 

ENTER REPLACEMENT LINE 

? 10 PRINT A+B*C 

10 PRINT A + B*C 

OPTION? L 

ENTRY * 1 01 REM TEST PROGRAM 

ENTRY # 2 02 INPUT A 

ENTRY * 3 03 INPUT B 

FN TRY * 4 04 INPUT C 

ENTRY * 5 05 INPUT D 

ENTRY # 6 06 IP A:B THEN 08 

ENTRY * 7 07 LET C+D 

ENTRY * 8 08 LET C+A/D 

ENTRY # 9 09 PRINT A 

ENTRY » 10 10 PRINT A + B*C 

ENTRY # 11 11 END 

OPTION" TEST 

'-'hEI'ABI. ES FuUi-JB IN "I'HE OI'v'EN PROGRAM 

VAR I ABLES TOUNu \ '^ INPUT STATEMENTS 

i': LINE # 03 

= v .--i ;■- !. n.!.:i..E3 EHUNii IN PRIN'i SiAl'EMEN'IS 



(llil-tll I N ' ;:i I !i 'i i: III N I 
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VARIABLES FOUND IN LET ST ATE ME 

LINE # 07 
LINE # 08 

D LINE * 08 



Program Listing 



10 REM VARIARLF PATH-FLOW ANALYSIS 

30 REM I HIS PROGRAM ASSUMES THAT THE LINE NUMBERS 

40 REM ENTERED BY THE USER ARF. CONSISTENT WITH THAT OF 

50 REM THE ENTRY NUMBERS 

50 REM DIMENSION ALL VARIABLES USED AS MATRICES AND VECTORS 

70 DIM PS<25)» QS(25»5)t R$(25t5). TS<25,5) 

80 DIM US(25t5> 

90 REM CLEAR ALL MATRICES AND VECTORS 

100 REM BY SETTING THEM EQUAL TO A BLANK SPACE 

110 REM CLEAR VECTOR PS 

120 FOR I»l TO 25 

130 P$(I)«" " 

140 NEXT I 

150 REM CLEAR MATRIX Q$ 

160 FOR I»l TO 25 

170 FOR J»l TO 5 

180 Q*(I.J)»" •• 

190 NEXT J 

200 NEXT I 

210 REM CLEAR MATRIX H$ 

220 FOR I«l TO 25 

230 FOR Jsl TO 5 

240 R*<I,J)s" " 

350 NEXT J 

260 NEXT I 

270 REM CLEAR MATRIX T$ 

joa for isi rn ?5 

?<H> (=UR js I 10 5 

'HIO t*(ltJ)=" " 

310 .mEXI J 

320 NEXT I 

330 REM CLEAR MATHIX US 

3*0 FOR I«l To 25 

350 FOR j»l TO 5 

360 U*(ItJ)»" " 

370 NEXT J 

380 NEXT I 

390 REM OUTPUT STARTING LABEL 

400 PRINT 

410 PRIM 

420 PRIM 

430 PR INT ******************** ************ 

44 PKIM" -• 

450 PHINT"«»*«*«*«**VARIABLES«««»*«***»' 

460 PRINT' 1 --- ' 

<4 70 PN INT"* ♦♦ + ♦♦♦ ♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦' 

6H(I PKlKl 

4 9 ^kIk | 

sou ^kJis i »f\ Ifrf HKOfi^AM) KF.Mf>rtF w fo USE LINE NOi*HE>S FROM' 
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SI'.) r'rdlN 1 "•) I TO A MAXIMUM OF 25 <00<LN<?M" 
■<-,?.<) ►'xlM'^NfFK M) , vr >*F THAN 5 VAKlARLtS HFn LlNt" 
530 PKINT'USE AS THF LINF NUMRFR THF SA^F NUMRF.K AS THE" 
540 PHINT"ENTRY NUMBER SUPPLIED 8Y THE PROGRAM TO INSURE" 
550 PKINT"PN0PER OPERATION OF THE PHOGRAM" 
560 P*INT 

570 HEM ENTRY OF USER'S PROGRAM TO BE ANALYZED 
580 N«l 

590 PRINT "ENTRY #"IN 
600 INPUT LS 
610 PS(N)»LS 

620 REM IF THE LAST ENTRY WAS AN END STATEMENT 
630 REM TERMINATE ENTRY MODE 
J640 JJL.SUBSTRlLSi<*.3)»"END" THEN 670 
»650 N»N»1 
0660 GOTO 590 
)670 PRINT 

680 REM DISPLAY AVAILABLE OPTIONS TO THE USER 

690 PRINT"THE FOLLOWING OPTIONS ARE AVAILABLE" 

TOO- PRINT" LIST" 

710 PRINT" MODIFY" 

720 PRINT" ADD" 

'j730 PRINT" TEST" 

i740 PRINT 
J750 PRINT"0PTI0N"I 
0760 INPUT LS 
,(770 IF LS»"L" OR L$»"LIST" THEN 840 

780 IF L*""M" OR LS»"MODIFY" THEN 900 
(1790 IF LS»"T»' OR LS«"TEST" THEN U<tO 
O800 IF L*»"A" OR L$»"ADD" THEN 1030 
1810 PRINT»COMMAND IS NOT RECOGNIZED" 
,820 GOTO 740 

830 REM PROCESS LIST OPTION 

840 PRINT 

850 FOR 1«1 TO N 

860 PKINT'ENTRY * "HI" "JP4(I) 

P70 NEXT I 

880 HHINT 

fi90 GOTO 740 

■ 900 PkINT 

910 REM PROCESS MODIFY OPTION 

,920 PRINP'WHICH ENTRY NUMBER" 

,930 INPUT L 

•940 IF L<01 OR L>N THEN 960 

950 GOTO 980 

i960 PRINTLINE NUMBER"ILI"HAS NOT BEEN ENTERED" 
970 GOTO 920 

,980 PMNT P*<D 
990 PRINT'ENTEK REPLACEMENT LINE" 

iOOO INPUT PS<L> 

1010 PRINT P$<L> 

1020 GOTO 740 

1030 PRINT 

1040 REM PROCESS ADD OPTION 

1050 PRINP'LAST LINE ENTERED IS" 

1060 PRINI PS(N) 

1070 PKIM"ENTER NEW LINES" 

1080 PRINT"ENTRY"»NI 

1090 INPUT L$ 

1100 PS(N)»L* 

1110 IF Su8STR(L$«4t3)B»END" THEN 740 

1120 N»N*1 

1130 GOTO 1080 

1140 -PJ-INJ 

1150 REM ANALSlS 

1160 REM FIND OUT WHAT THE STATEMENT IS ON LINE K 

1170 K*l 

1180 IF SUBSTR(P$(K)t4i3)«"END" THEN 1690 

1190 IF SU8STR(PS<Mi<m5)»"INPUT" THEN 1280 

1200 IF SUBSTR<PUK>i<n3>»"LE1" THEN 13B0 
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1210 IF SUBSTR(PS(K>t4t5)» , 'PHINT» THEN 1480 
1220 IF SUBSTR(PS<K> ,4,2)a"lF» THEN 1580 

1230 if k>25 then 12*0 

1240 K=K*1 

1250 GOTO 1180 

126_Q..PRINT"PRQaRAM ERROR. NO END STATFMENT" 

1270 REM PROCESS INPUT STATEMENTS 

1280 jsl 

1290 FOR 1*10 TO LEN(P$(K)) 

1300 ZS»SUBSTR(P$(K).I,1) 

1310 CHANGE 2$ TO A 

132CLIF A (2X0 OR A(2)>26 THEN 135Q 

1330 US(K,J)aSUBSTR(P$<K>,I,l) 

1340 J»J*1 

1350 NEXT I 

1360 GOTO 1240 

1370 REM LET STATEMENT SUBROUTINE (OS) 

1380 J»l 

1390 FOR I«8 TO LEN(P$(K>> 

1400 Z$aSUBSTR(P$(K).I.l) 

1410 CHANGE ZS TO A 

1420 IF A(2)<0 OR A(2)>26 THEN 1450 

1430 QS(K,J)aSUBSTR<P$<K),I,l) 

144Q J«J*1 

1450 NEXT I 

1460 GOTO 1240 

1470 REM PRINT STATEMENT SUBROUTINE <RS> 

1480 J«l 

1490 FOR I«10 TO LEN<PS(K)) 

1500 Z$»SUBSTR(P$(K) ,1,1) 

1510 CHANGE ZS TO A 

1520 IF A(2)<0 OR A(2)>26 THEN 1550 

1530 RS(K,J)aSUBSTR(P$(K) ,1,1) 

1540 J*J*1 

1550 NEXT I 

1560 GOTO 01240 

1570 REM IF STATEMENT SUBROUTINE <T$> 

1580 J»l 

1590 FOR I«7 TO LENIPSIK)) 

1600 IF SUBSTR(P$(K) » I ,4) *»THEN» THEN ,1670 

1610 ZS«SUBSTR(P$(K) ,1,1) 

1620 CHANGE ZS TO A 

1630 IF 4(2X0 OR A(2)>26 THEN 1660 

1640 TS(K,J)aSUBSTR(PS(K),I,l) 

1650 J=J*1 

1660 NEXT I 

1670 GOTO 1240 

1680 REM »»««*ANALYSIS*»*»» 

1690 PRINT 

110.0. PRINT" " 

1710 PHINT"VARIABLES FOUND IN THE GIVEN PROGRAM" 
1720 PRINT" -•• 

1730 PRINT 

1740 REM PRINT ALL VARIABLES FOUND 

1750 PRINT"VARIABLES FOUND IN INPUT STATEMENTS" 

176Q PRIXT 

1770 FOR Kal TO 25 

1780 FOR J-l TO 5 

1790 A(2)a27 

1800 ZSaU$(K,J) 

1810 CHANGE ZS TO A 

1820 IF A12X1 OR A(2)>26.THEN 1840 

1830 PRINT US<K,J),"LINE # 'MSUBSTR (P$ (K) , 1 ,2) 

1840 NEXT J 

1850 NEXT K 

1860 PRINT 

1870 PRINT««VARIAHLES FOUND IN PRINT STATEMENTS" 

1880 PRINT 

1890 FOR Kal TO 25 
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1900 FOR J»l TO S 

1910 A(2)a27 

1920 ZS»RS(K.J) 

1930 CHANGE ZS TO A 

1940 IF AC2X1 OR A(2)>26 THEN I960 

1950 PRINT R$(K»J> ."LINE # "I SUBSTR (PS <K ) 1 1 .2) 

1960 NEXT J 

1970 NEXT K 

I960 PRINT 

1990 PRINT"VARlABLES FOUND IN IF STATEMENTS" 

2000 PRINT 

2010 FOR n«1 TO 25 

2020 FOR J»l To 5 

2030 A<2)»27 

2040 ZSrTi(KiJ) 

2050 CHANGE ZS TO A 

2060 IF A(2X1 OR A(2)>26 THEN ?0B0 

2070 PRINT TS(K.J) ."LINE # " ; SORSTR IPS <K ) . 1 .2 ) 

2080 NEXT J 

2090 NEXT K 

2100 PRINT 

2110 PRINT'VARIABLES FOUND IN LET STATEMENTS" 

2120 PRINT 

2130 FOR K«l TO 25 

2140 FOR J«l TO 5 

2150 A(2)=27 

2160 ZSxQilK.J) 

2170 CHANGE 2S TO A 

2160 IF A(2)<1 OR A(2)>26 THEN 2200 

2190 PRINT QS(K.J) ."LINE # " I SLBSTR (PS <K ) , 1 ,2 ) 

2200 NEXT J 

2210 NEXT K 

2220 PRINT 

2230 PRINT"»«»««»RUN COMPLE TE«««»**" 

2240 END 
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ART GRAPHICS 

Art Graphics lets you draw semi-random pictures based on the 
binomial theorem. You may specify the array size and which ele- 
ments to blank, such as every multiple of N except where N = 1, in 
which case everything will be blanked and nothing will be printed. 
Give it a try. 



fsTARTJ 



HEADER 



INPUT 
PARAMETERS 



CALCULATE 
SINGLE 



OUTPUT 
ALINE 





FORMAT 



CALCULATE 
DOUBLE 



OUTPUT 
ALINE 




LAST 
LINE 



VY 



A 

( END J 



CALCULATE 
QUAD 



OUTPUT 
ALINE 




Flowchart for Art Graphics 
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Sample Run 



RANDOM ART 



AVAILABLE PATTERNS 

1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS? WHAT TYPE ? 1 

WHICH MULTIPLES SHOULD BE BLANKS? 

HOW MANY ROWS AND COLUMNS 

DO NOT EXCEED 36. .. .PLEASE? 12 

************ 

************ 

************ 

************ 

************ 

************ 

************ 

************ 

************ 

************ 

* * * * * * * * * * * * 

* * ********** 



RUN COMPLETE 
RUN 



RANDOM ART 



AVAILABLE PATTERNS 

1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS t WHAT TYPE ? 1 
WHICH MULTIPLES SHOULD BE BLANKS? 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36 ... .PLEASE? 17 

?fC >fC /fC/ftifC <np.Jf.Jfi- Xfi.7f.jpk Jf\ Tf. 

)|C $ )j( $ )K * * )|()|(5|CflC)|()(C)p* 

*4f & -ft "ii ^ "it "tit- "tit "it & "it "& & 

1$, J$ Jf. Jf. Jf\ Jf. %> & 

****** *** 
)|C 5j( 5p * * 5|C * $ * 

********* 



* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 




* 


* 


* 


* 


* 


* 


* 
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********** ****** 
*********** ***** 
************ **** 
************* *** 
************** ** 
**,************# * 
**************** 
***************** 



HUN COMPLETE, 
5UN 



RANDOM ART 



AVAILABLE PATTERNS 

1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS? WHAT TYPE ? 2 
WHICH MULTIPLES SHOULD BE BLANKS? 3 
HOW MANY ROWS AND COLUMNS 
DO NOT EXCEED 36 •♦. .PLEASE? 17 
**************** 
** ** ** ** ** * 
***** * 
****** **** ** 
**** ** **** 

* * * * * 

* * * * * * * * 

* * ******* 

* * 
******* * * 

* * * * * * * * 

* * * * * 

* * * * * * * * * * 

* * **** ****** 

* * * * * * 

* * * * * * * * * * * 

* * * * * * * ****** * * * 



RUN COMPLETE, 

run 
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RANDOM ART 



AVAILABLE PATTERNS 

1 SINGLE 

2 DOUBLE 

3 QUAD 

OKAY ART FELLOWS, WHAT TYPE ? 3 
WHICH MULTIPLES SHOULD BE BLANKS? 3 
HOW MANY ROWS AND COLUMNS 

:? 18 

* * 



DO NOT 


EXCEED 


36 




, . . 


PLEASE? 


18 


* * 


* 


* * * * 


* 


* 


* 


* 


* * * 


* * 


* * 


* 


* * * 




* 


* 


* 


* * * 


* * 


* 


* 


* 


* 


* 


* 


* 


* * * 




* * 


* 


* * * 






* 


* 


* * * 


* 


* * 


* 


* 




***** 




* 


* 






* 


* 


* 


* 




* * 


* 








* 


* 


* 




* * 










* 


* 






* 










* 








* 










* 








* * 










* 


* 






* * 


* 








* 


* 


* 




* * 


* 


* 






* 




* 




* * 


* 


* * 






* 


* 


* * 




* * 


* 


* * * 






* 


* 


* * * 


* 


* * 


* 


* * * * 






* 




* * 




* * 


* 


* * * * 


* 




* 


* 


* * 


* * 


* * 


* 


# # * * 


* 


* 


* 


* 


* * * 


* * 


RUN 


COMPLETE. 














RUN 






















RANDOM ART 












AVAILABLE PATTERNS 












1 




SINGLE 














2 




DOUBLE 














3 




QUAD 














OKAY 


ART FELLOWS. 


WHAT 


TYPE 


? 3 




WHICH MULTIPLES SI 


■IOULD 


BE 


BLANKS? 5 




HOW 


MANY ROWS AND 


COLUMNS 








DO NOT 


EXCEED 36. 




pleas: 




3 A 




* * 


* * 


* * * * * 


* 


* : 


* * 


* 


* * * * 


* * * 



* * 



************* 
******** **** ** ***************** 

* * * *** *** * **************** 

* * ** ** *************** 
% * * ************** 

************* ************* 

**** **** ** ************ 

* * * *** * *********** 

££ ** ********** 



******** 



******** 



****** ******* 



* * * * * * * 

* * * * * * * * * * 

******** ******** 



********* * * 

********** ** ** 

*********** * *** *** 

************ * * **** **** 

************* ************* 
************** * * * 

*************** * * * * * * 

**************** * * * * * * * * * * 

***************** ** **** **** **** 

+:*********************************** 
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rrogram Listing 

10 REM PRINT TITLE 
20 PRINT 

30 PRINT" RANDOM ART" 

40 PRINT" ——-—•II 

50 PRINT 

60 REM ART USING BINOMIAL THEOREM 
80 DIM P(36»36) 
90 MAT P«ZER 
100 PRINT«AVAILABLE PATTERNS" 

110 PRINT" «» 

120 PRINT"1 SINGLE" 

130 PRINT"2 DOUBLE" 

140 PRINT"3 QUAD" 

150 HKINT»OKAY ART FELLOWS. *HAT TYPE"! 

160 INPUT 

170 IF Ool AND 0<>2 AND 0<>3 THEN 00150 

180 PRINT»*HICH MULTIPLES SHOULD BE BLANKS"! 

190 INPUT Q 

200 PRINT»H0W MANY ROWS ANO COLUMNS" 

210 PHINI»»D0 NOT EXCEED 36. .. .PLEASE" I 

220 INPUT T 

230 IF T*(36-T><0 THEN 200 

2A0 IF 0=1 THEN 270 

250 IF 0*2 THEN 460 

260 IF 0*3 THEN 690 

270 FOR Kal TO T 

280 FOR C«l TO T 

290 IF (H-1)«(C-1)»0 THEN 320 

300 P(R.C)«P(RtC-l)*(P(R-l.C)/Q) 

310 GOTO 330 

320 P(R.C)=1 

330 NtXT C 

340 NEXT R 

350 FOR Hal TO T 

360 FOR C«l TO T 

370 IF P(R,C)s0 THEN 410 

380 IF (P(R.C)/Q)*INT(P(R,C)/Q) THEN 410 

390 PRINf"« "| 

400 GOTO 420 

410 PRINT" "I 

420 NEXT C 

430 PHINT 

440 NEXT R 

450 STOP 

460 Z*T 

470 N»Z 

480 FOR K*l TO N 

490 FOR C«l TO Z-l 

500 IF <K-l)«(C-l)s0 THEN 530 

510 P(RtC)»P(RiC-l)*P(R-ltC) 

520 GOTO 540 

530 P(R.C)=1 

540 NEXT C 

550 ZaZ-1 

560 NEXT R 

570 Z*N 

580 N»2 

590 FOR K*Z To 1 STEP -1 

600 FOR C*Z TO N STEP -1 
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610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 



IF (K-Z)«(OZ)*0 THEN 640 

P(RtCUP(Rt01)*P(R*ltC> 

GOTO 650 

P(R»C>*1 

NEXT C 

N*N*1 

NEXT H 

GOTO 350 

M = Q 

Y = T 

Z=INT (Y/2) 

B5«Z*2 

Z1 = Z 

Z2*Z1 

Z3 = Z^ 

X4*Zj 

X5*X<* 

FOP- 1*1 TO Zl 

FOR J*l TO I 



if (j-p«(I-i)bo then >no 
P(I.J)SP(I»J-1)*P(I-1.J) 

GOTO 840 
P(I.J)sl 
NEXT J 
Z = Z-1 
NEXT I 
N = Zl 
FOR J«l 
FOR JsY 
IF 
IF 



TO 
TO 



Zl 

X5*l STEP -1 

Ial THFN ?40 

JsY THEN 940 
P(I«J)aP(I»J*l) ♦P(I*1»J) 
GOTO 950 
PU.J>*1 
NEXT J 
XS*Xb*l 
NEXT I 
N*Z2 

FOR 1«Y TO X4*l STEP -1 
FOR J«l TO 12 
TF Jsl THEN 1050 
IF IxY THFN 1050 
P(IiJ)aH(IiJ-l)*P(I-l»J) 
GOTO 1060 
R(I.J)=1 
NEX1 J 
Z2sZ2-l 
NEXT I 
N*Z3 
FUR i«Y 
FUR JsY 
IF jsY 
IF IsY 



TO N*l STEP -1 
TO Z3*l STEP -1 
THFN 1160 

, *~~ . . * H FN 11^0 

1140 HII »J)=H < I * I • J) ♦KI «J*1> 

1150 GOTO 1170 

1160 P(I tJ)sl 

1170 NEXT J 

1180 LS*li*\ 

1190 NEXT I 

1?00 GOTO :<50 

1210 FNO 
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LOVE THAT PRINTER GRAPHICS 

You may input any message. The program will spell out "love" 
using your message as the background. For best results your mes- 
sage should be less than 60 characters. 



[START] 



INPUT A$ 



LEN A$ 



FOR LOOP 

BREAK UP 

TEXT 



SET 
MARGIN TO 133 



USING READ 

AND DATA 

COMPUTE 

WHERE SPACES GO 



PRINT A 
LINE 



FOR LOOP 
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3 


=_ 
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3 
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s 


l 


1 


q 


3 


II 



S-333-33-3-33- 



o. 
E 
re 

CO 



3-333-3 



3 3 3-3 



3-33333-3-3 



3-33-3-3-3-3-3-33 



3-3-3-3333-3333-3-33: 



3-3-330-3-3-3-33333-3-3- 



^2 2 22 11^ lll^l^ 



33-33-333-33333333-3- 



33-3-3-3-333-3-3-3- 



3- 3 3- 3- 3- 3- 3- 



LUUJuJtiJliJUJUJijJijJLyUJlliLLiUJUJLlJ 
333333333333J333 



3- 3 3 3- 3- 3- 3- 



3-3S-3-3-3-3-33-3-3-3-3 



3 533-3-53-S33233-33 



3-3-3-333-33-3- 33-3-3- 



3- 3- 3 3- 3 3- 3- 



Ui iU Ui Lu UJ 
>3^ 3- 3.3 

c c O o o O o 



_i ! ^ 3-3-33-353-33- 



_3333332S'33S|3 

Lii lii UJ lii LU UJ UJ UJ UJ LU lii m Ui LU til Ll| 
D.33-3-3=>>33-I>3-33-3-3>3 

OOOOOOOOOoOqOOCo 
i — i — I — i i — f — i — ! — I I — I | i — i I i 

LUUiLiiiiiLjUJUjLLJLUUjUJiijUjLUUISij 

33-33-33:3>3. > 3- => 3-=>3-3 
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Program Listing 



10 REM LOVE 

S-O-SEM m APRIL 197ft 

30 DIM 1J(240> 

40 INPLJ AS 

50 L»LEN(Ai! 

60 FOR J»0 TO IM U20/L! 

70 FOR I»l TO I 

80 I*(J»L*I)-6U8STH(A$f 1,1) 

90 NtXTl 
100 NEXT J 
110 MARGIN 1.13 
120 C»0 
130 HiPi] 
1*0 C«Ol 

150 IF Ca37 TmFN 00*30 
160 PKIM 
170 REAC A 
190 A«2«a 
190 Al«fli«A 
200 IF Pm\ 1HFN 0O260 
210 FOR i»l TO A 
??0 PhlM" »| 
230 NEXT I 
2*0 ^«1 

250 r«0 Tu 00300 
260 FOR 1»A1-A TO A)-l 
?70 RNIM T4(p I 
2R0 NEAT I 
290 P»0 

30 If A1>1?0 THEN 00 130 
310 GO TO 00170 

3?0 DATA 60. 1.12, 26, 9, 12. 3. 8. 24, 17, 8, 4, 6. 23, 21. 6. 4. 6. 22. 12. 5, 6*5 
330 OAT A 4, 6.21 , 11. P. 6. 4. 4, 6, 21, 10, 10, 5. 4. 4, 6. 21, 9,11 .5. 4. 4, 6, 21, a 
34 DATA 11, 6,4,4,6.21, 7. 11, 7, 4, 4, 6. 21. 6. 11, 8. 4, 4, 6. 19, 1,1, 5.11, 9 
3^0 DATA 4, 4. M 19. 1.1. 5.10,10, 4, 4, b. 18. 2, 1.6,8, 11. 4.4. 6.17.3. 1»7»5 

36 n AT A 13. 4, 4, 6. lb. 5, 2. 23. 5,1, 29, b, 17, 8,1. 29. 9, 9, 12. 1.13. 5, 40.1 

37 n AT A 1, 13, 5, 40, 1. 4, 6, 13, 3,10, 6, 12. 5. l.S. 6. 11. 3. 11. 6. 14, 3, 1.5 
3P0 HAfA 6, 11, 3, 11.*, IS. 2, 1,*, 6, 9, 3. 12, 6, 16, 1,1 ,6.6. 9.3. 12. 6. 7.1 
39 DATA 10. 7, 6, 7, 3. 13. 6. 6. 2.10, 7, 6, 7, 3, 13. 14, 10, 8, 6, 5, 3, 14, 6. 6, 2 
400 OATa ID. 8, 6, 5, 3, 14, 6, 7,1, in, 9, 6, 3, 3, lb, 6, 16. 1.1. 9. 6. 3. 3. 15. 6. 15 
410 CATA ?. 1, 10,6. 1. 3. 1*. 6, 1*. 3. 1. 10. 10, 16. 6, 12. 5.1, 11. B, 13.27. 1.11.8 
*20 DATA 13.27.1 .60 

430 FOW jsl To 25 
440 PMM 
4=0 NfcXl j 
*60 SlOt- 
47 FNO 
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Section II 

Programs For 

TRS-80 and PET® Computers 

This section contains programs written specifically for the Radio 
Shack TRS-80 computer using Level II BASIC. Program listings are 
included for 12 of the games found in Section I. Some programs were 
completely rewritten. For instance, Computerized Hangman now 
includes a graphic display as well as twice as many vocabulary words. 

Some of the other programs will run with no modifications. In 
general, none of the three plotting routines, Plot Your 4 Equations, 
Plot Your 10 Equations, or Polar Graphic Subroutine should be used 
on a TRS-80. This is because of problems with screen size, scrolling, 
and execution time. 

You will need Level II BASIC and 8K of memory. The program 

Star Warp needs 16K of memory. 

Most of the programs in this book will run on the Commodore 
PET® however, some conversion may be required. Before keying 
in one of the programs, examine the listings carefully. If two listings 
are shown for the same program, determine which listing more 
closely resembles the PET®BASIC. In most cases, this will be the 
listing in Section I of this book. Section II contains listings in TRS-80 
BASIC. If you desire to convert the TRS-80 version to your PET® 
there are several important differences you should be aware of. 

• Video screen size for the TRS-80 is 64 characters by 16 
lines. 

• TRS-80 Level II BASIC allows up to 256 characters in a 
single instruction. 

• Several TRS-80 instructions do not have an equivalent in 
PET©BASIC(suchas DEFINT, DEFDBL, DEFSTR, and 
PRINT©). 

• Video display graphics are handled completely differently. 
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The following is a list of TRS-80 instructions along with their 
PET®equivalents. This should give you an idea of some of the subtle 
differences between the two. 



TRS-80 



PET 



CLS 

RND(X) 

A$ = INKEY$ 

PRINT TAP (5) A 

FOR I = 1 TO 5: NEXT 

NEXT K,L 



PRINT'S]" 

INT(X*RND(0) + .1) 

GETA$ 

PRINT TAB(5); A 

FOR I = 1 TO 5: NEXT I 

NEXT K: NEXT L 



Cursor movement is also handled differently on the two 
machines. On the TRS-80 the PRINT ©command is used to position 
the cursor at an absolute location on the screen. Position is in the 
upper left-hand corner and position 1023 is the lower left. For 
example, PRINT© 64, "HI THERE" would cause HI THERE to 
appear, starting in the first character position of the second line of 
the display. Other cursor movement is done using the PRINT 
command with a CHR$ operand. For example, PRINT CHR$(28) 
causes the cursor to return to position 0. Other values which may be 
used, along with their functions, are in the following table: 

Backspace and erase current character 

Carriage return 

Turn on cursor (The cursor on the TRS-80 is the 

underscore (--).) 

Turn off cursor 

Convert to 32 character mode (all characters 

become twice their normal size) 

Move cursor one position left 

Move cursor one position right 

Move cursor one line down 

Move cursor one line up 

Return cursor to position 

Move cursor to beginning of line 

Erase to end of line 

Erase to end of screen 



PRINT 


(8) 


CHR$ 


(13) 




(14) 




(15) 




(23) 


PRINT 


(24) 


CHR$ 


(25) 




(26) 




(27) 




(28) 




(29) 




(30) 




(31) 
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WUMPUS 

Program Listing 

18 REN HUNT THE WUMPUS 



38 DIM P<5) 

48 PRINT" INSTRUCTIONS? <V-N> H ; 

% INPUT 1$ 

m IF I$="N n THEN 89 

70 GOSUB 640 

30 CLS:DIM 5(28,2) 

30 FOR J=1TO20 

100 FOR K=1T02 

119 RERD S(J,K) 

120 NEXT K,J 

130 DfiTfl Z 5, 8, L 3, 19, 2, 4, 12, 3, 5, 14, 1, 4, 6 

148 DRIB 5, 7, 15, 6, 3, 17, 1, 7, 9, 8, 19, 18, 2, 9, 11 

158 DfiTfl 19, 12, 19, 3, 11 13, 12, 14, 28, 4, 13, 15, 6, 14, 16 

168 DfiTfl 15, 17, 20, 7, 16, 13, 9, 17, 19, 11, 18, 20, 13, 16, 19 

179 REM LOCATE L ARRflV ITEMS 

180 REN l=YOU, 2=WUMPUS, 3&4=PITS, 5&6=BfiTS 
198 DIN L(6) 

208 DIM 11(6) 

218 FOR MT06 

228 L(J)=RND(28) 

230 H(J)=LU) 

248 NEXT J 

258 REM CHECK FOR CROSSOVERS 

268 FOR J-1T06 

270 FOR K=JT06 

288 IF J=K THEN 368 

298 IF L(J)=L(K) THEN 218 

388 NEXT K 

318 NEXT J 

328 REM SET ARROWS 

328 fl=5 

348 LL=L<1> 

358 REM RUN THE GAME 

368 PRINTTflB(28)"HUNT THE yUHPUS" 

378 PRINTTflB(28) " " 

388 REM HAZARD WARNINGS AND LOCATIONS 

338 GOSUB 1188 

486 REM MOVE OR SHOOT 

418 GOSUB 1238 

428 IF 0=2 THEN 470 
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428 GOSUB 1249 
449 if F=@ THEN 236 
458 GOTO 490 

466 REM HOVE 

478 GOSUB 1840 

438 IF F=0 THEN 290 

498 IF FX" THEN 5*8 

508- REM LOSE 

510 ?RINT"DUMMV- VOU LOSE. VWPll JUS' L" V E ,J OU ! ! : " 

528 GOTO 560 

526 REM WIN 

548 PRINT-OKAY, HOT-SHOT. THE HUMPH HILL GET THEIR REVENGE " 

558 PRINT"HUMPII SPIRITS WILL HflUNT VOU 'TIL THEN. " 

568 FOR MT06 

578 L(J)=H(J) 

588 NEXT J 

598 PRINT"SftME SET UP? <Y-N)"; 

688 ItfUT 1$ 

618 OS 

628 IF I$0"Y" THEN 218 

628 GOTO 328 

648 REM INSTRUCTIONS 

658 PRINT B HELCGHE TO 'HUNT THE WUMPUS. '" 

668 PRINT -.PRINT" THE WUMPUS LIVES IN A CAVE OF 28 ROOMS. EACH ROOM" 

678 PRINT B HftS 3 TUNNELS LERDING INTO OTHER ROOMS. (LOOK AT A" 

688 PRINTDUODECRHEDRON TO SEE HOW THIS WORKS - IF VOU DON'T KNOW" 

698 PRINTWHAT A DUODECAHEDRON IS, ASK SOMEONE. )■ 

788 PRINT :PRINT n HA2ARDS" 

718 PRINT 5 ** BOTTOMLESS PITS 

728 PRINT" THERE ARE TWO OF THESE. FALL INTO ONE OF THEM" 

728 PRINT" AND VOU WILL LAND IN CHINA. ■ 

748 PRINT"* SUPER-BATS 

758 PRINT" TWO OTHER ROOMS HAVE SUPER-BATS. IF VOU GO THERE, " 

768 PRINT" A BAT GRABS VOU AW) TAKES VOU TO SOME OTHER ROOM AT" 

778 PRINT" RANDOM (WHICH MIGHT BE TROUBLESOME). " 

788 INPUT-PRESS ENTER TO CONTINUE"; I* 

798 CLS:PRINT:PRINT"THE WUMPUS -" 

888 PRINT: PRINT 3 THE WUMPUS IS NOT BOTHERED BV THE HAZARDS (HE HAS" 

810 PRINPSUCKER FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLV" 

828 PRINPHE IS ASLEEP. TWO THINGS WAKE HIM UP: VOUR ENTERING'' 

828 PRINPHIS ROOM OR VOUR SHOOTING AN ARROW. " 

848 PRINT .PRINT" IF THE WUMPUS WAKES, HE MOVES (-75X CHANCE) ONE ROOM" 

858 PRINT"OR STAYS STILL (25-/. CHANCE). AFTER THAT, IF HE IS WHERE" 

868 PRINT" VOU ARE, HE EATS VOU UP (AND, BOY, DO VOU LOSE!). 

878 PRINT : INPUT-PRESS ENTER TO CONTINUE"; 1$ 

830 CIS: PRINT : PRINT "YOU -" 
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898 PRINT -.PRINT' EACH TURN, YOU MAY MOVE OR SHOOT a CROCKED ARROW. " 
380 PRINT; PRINT"* MOVING" 

918 PRINT" YOU CAN GO ONE ROOM (THROUGH ONE TUNNEL). " 
92@ PRINT: PRINT"* ARROWS" 

938 PRINT" VOL! HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT. " 
946 PRINT" each RRROM CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY" 
356 PRINT" TELLING THE COMPUTER THE ROOMS) YOU WANT THE ARROW" 
960 PRINT" TO GO. IF THE RRROW CAN'T GO THAT NAY (I. E. NO " 
970 PRINT" TUNNEL) IT MOVES AT RANDOM TO THE NEXT ROOM. " 
980 PRINT" IF THE ARROW HITS THE WUMPUS, YOU WIN. " 
990 PRINT" IF THE ARROW HITS YOU, YOU LOSE. " 
1000 INPUT-PRESS ENTER TO CONTINUE"; 1$ 
1010 CLS: PRINT :PRINT"WARNINGS -" 

1620 PRINT .PRINT" WHEN YOU ARE ONE ROOM AWAY FROM THE WUMPUS OR HAZARD, 
1938 PRINTTHE COMPUTER SAVS: H 
1848 PRINT: PRINT" WUMPUS - 'I SMELL A WUMPUS''" 
1058 PRINT" BAT - ''BATS NEARBY'" 
1868 PRINT" PIT - 'I FEEL A DRAFT"" 
1878 PRINT: PRINT :INPUT"PRESS ENTER TO BEGIN THE GAMEM$ 
1088 CLS: PRINT 
1090 RETURN 

1188 REM PRINT LOCATION AND HAZARD WARNINGS 
1110 PRINT 
1128 FOR J=2T06 
1130 FOR K=1T03 

1140 IF S(L(i),K>OL(J) THEN 1228 
1150 IF J=3 OR J=4 THEN 1198 
1168 IF J=5 OR J=6 THEN 1210 
1178 PRINT" I SMELL A WUMPUS!" 
1188 GOTO 1228 
1190 PRINT™ I FEEL A DRAFT 5 B 
1288 GOTO 1228 
1218 PRINT"BATS NEARBY!" 
1228NEXTK 
1238 NEXT J 

1248 PRINT-YOU ARE IN ROOM M<i) 
1258 PRINT'TUNNELS LEAD TO B jS<LLi),S(LL2>,S<LL3) 
1260 PRINT 
1278 RETURN 
1288 REM CHOOSE OPTION 
1298 PRINT-SHOOT OR MOVE? <SH1>"; 
1388 INPUT I* 

1318 IF I$="S" THEN 0=1: RETURN 
1328 IF I*="H' THEN 0=2: RETURN 
1338 GOTO 1298 
1348 REM ARROW ROUTINE 
1358 F=8 
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1266 REM PATH OF ARROW 

1278 PRINTNUMBER OF ROOMS? (1-5) "i 

1288 INPUT J9 

1298 IF J9<1 OR J9>5 THEN 1278 

1488 FOR K=1T0J9 

1418 PRINPROOM NUMBER"; 

1428 INPUT P(K) 

1428 IF K<C=2 THEN 1478 

1448 IF P(K) O P(K-2) THEN 1478 

1458 PRINT" :? n ARR0WS ARE NOT SUPER MAGIC ! .-BE REALISTIC (RE-ENTER)' 

1468 PRINT .GOTO 1418 

1478 NEXT K 

1488 REN SHOOT ARROW 

1498 LL=L(i) 

1588 FOR K=1T0J9 

1518 FOR K1=1T02 

1528 IF S(LLK1)=P(K) THEN 1688 

1528 NEXT K.1 

1548 REM NO TUNNEL FOR ARROW 

1558 LL=S(L,RND(2» 

1568 GOTO 1698 

1578 NEXT K 

1588 PRINT-MISSED" 

1598 LL=L(i) 

1688 REM MOVE WliMPUS 

1618 GOSUB 1768 

1628 REM AMMO CHECK 

1628 A=A-1 

1648 IF fl>8 THEN 1668 

1658 F=-l 

1668 RETURN 

1678 REM SEE IF ARROW IS AT L(l) OR L(2) 

1688 LL=P(K) 

1698 IF LL O 1(2) THEN 1728 

1788 PRINT" AHA' YOU GOT THE WUMPUS!" 

1718 F=l 

1728 RETURN 

1728 IF LL O L(i) THEN 1579 

1748 PRINT"OUCH ! ! ! THE ARROW GOT YOU ! " 

1758 GOTO 1658 

1768 REM MOVE i-lUMPUS ROUTINE 

1778 K=RND(4) 

1780 tp k = 4 then i860 

1798 L(2)=S(L(2),K> 

1888 IF L(2)OLL THEN 1828 

1818 FRlNrUUMPUS GOT VR ! ! ! TURKEY ! ! !" 
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1829 F=-l 

1323 RE T URN 

1848 REM HOVE ROUTINE 

1853 F=8 

1868 PRINT B QKflY, WHERE TO NOW"; 

1879 INPUT LL 

1888 IF U<1 OR LD29 THEN 1868 

1890 FOR K=1T03 

1900 REM CHECK IF LEGflL HOVE 

1910 IF S(L(1),K)=LL THEN 1976 

1929 NEXT K 

1930 IF LL=L(i) THEN 1978 

1940 PRINT-ARE YOU FOR REAL TURFS NOT POSSIBLE": PRINT 

1958 GOTO 1368 

1968 REM CHECK FOR HRZHRDS 

1978 L(i)=LL 

1988 REM HUHPUS 

1998 IF LLOL<2> THEN 2868 

2088 PRINT-TURKEY! YOU BUMPED- INTO ft HUHPUS ! !" 

2010 REM HOVE HUHPUS 

2820 GOSUB 1778 

2838 IF F=8 THEN 2868 

2848 RETURN 

2858 REM PIT 

2868 IF LLOLO) AND LLOK4) THEN 2118 

2878 PRINFfi PIT ! ! ! CHINA, HERE YOU COME I ! ! i " 

2888 F=-l 

2898 RETURN 

2188 REM BATS 

2118 IF LLOLC5) AND LLOK6) THEN 2158 

2128 PRINT"SUPER-BRTS ! i I GOOD LUCK ! !" 

2138 LL=RND(28) 

2148 GOTO 1978 

2150 RETURN 

2168 END 
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SUB HUNT 

Program Listing 

18 REM THE GAME OF SUB HUNT 
26 REM THE SUB HUNT IS PLfiVED 
38 REM ON fl 18 X 10 GRID WITH 
48 REH THE ORIGIN ON THE LEFT 
58 REM TOP CORNER. 
68 REM THE X AXIS READS FROM 
70 REM 1 TO 18 GOING LEFT TO 
88 REM RIGHT, THE V AXIS READS 
90 REM FROM 1 TO 18 GOING 
188 REM FROM TOP TO BOTTOM, THEREFORE 
118 REM COORDINATE 18, 18 IS THE RIGHT, 
128 REM LOWER CORNER OF THE GRID 
138 REM SUBS ARE CRAFTY, WATCH THEM 
148 REM CAREFULLY 
156 CLS: PRINT 

168 PRINTTAB<28>"S U B H U N T" 

178 PRINT: PRINT" WELCOME TO THE GAME OF SUB HUNT. THE ENEMY MAY BE" 
188 PRINT-LURKING ANYWHERE WITHIN THE GRID. TO COMPLICATE FINDING" 
138 PRINT' IT AND DESTROYING IT WITH DEPTH CHARGES, THE SUB CRN ALSO" 
288 PRINT"DIVE. DEPTH CHARGES MAY BE DROPPED ANYWHERE ON THE GRID, " 
218 PRINT-BUT THEY ARE NOT EFFECTIVE UNLESS THEY HAVE BEEN SET" 
229 PRINT'TOR THE RIGHT DEPTH. 

238 PRINT" SINCE THE SUB CAN DIVE TO THE SEfl BOTTOM, DEPTH CHARGES" 
248 PRW'MAY ALSO 3E SET pqr THIS DEPTH. 18 IS THE SEA BOTTOM, " 
256 PRINT-HHILE 1 IS THE SURFACE OF THE SEA. THE SUB'S POSITION" 
260 PRINT-HILL BE UPDATED AFTER EACH MOVE, AS IT WAITS TO SEE WHAT" 
278 PRINT"YOUR MOVE IS. THE SUB, BEING NUCLEAR POWERED, CAN STAY" 
288 PRiNFAT ANY DEPTH c OR ANY PERIOD OF TIME. " 
238 PRINT: PRINT-PRESS ENTER TO CONTINUE"; : INPUT A$ 

388 CIS. PRINT. PRINT" tq DESTROY THE SUB, YOU MUST DROP THE DEPTH CHARGE" 
318 PRINT-NOT ONLY AT THE RIGHT COORDINATES, BUT IT MUST BE FUSED" 
328 PRINT'TOR T HE RIGHT DEPTH. IF NOT YOU HAVE WASTED A DEPTH CHARGE. " 
338 PRINT" YOU HAVE A DISADVANTAGE AND AN AC-VANTAGE OVER THE SUB " 
348 PRINFTHE DISADVANTAGE IS YOU'RE LIMITED TO THE NUMBER OF DEPTH" 
358 PRINPCHARGES YOU HAVE (AT LEAST 16). THE ADVANTAGE IS THAT THE" 
360 PRINT"SUB CAN ONLY MOVE ONE SQUARE AT A TIME, AND ALSO IT CAN" 
378 PRINT "MOVE UP OR DOWN ONE COORDINATE AT A TIME. " 
338 PRINT :PRINT"GOOD LUCK, COMMANDER - PRESS ENTER TO BEGIN"; : INPUT A$ 
398 RANDOM 
488 REM 

418 REM AMOUNT OF DEPTH CHARGES 
428 Cl=RND'li>*15 
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42@ CLS: PRINT : PRINT" VOU, COMMANDER ARE AT COORDINATES LI" 

448 PRINT 

456 REM SET UP POSITION FOR SUB 

468 A=RNDQ3> 9=RN^l^.D=RNDa0j 

478 REM A IS THE X AXIS 

488 REM B IS THE V mS 

49S REM D IS THE DEPTH 

SOS REM SHIP'S STARTING COORDINATES 



c ,?fl V-ir-1 



520 REM GET SHIP S MOVE 

540 PRINT 

558 PRlHT'TOt'inHMDE?:, WHERE DO WE SAIL FOR"; 

568 INPUT" M.- V 

578 REM TEST THAT X, V ARE NOT OUT OF SOUNDS 

588 IF X>9 AND X<ii AND V'.-O ^ND *\ii ~ M EN S88 

598 PRINT : PR! NT "COMMANDS- S T5 V WITHIN THE ORID' ; GOTO 558 

sie vi=^ 

620 P&'INT 

S28 PRINT "COMMANDER, WHAT. SETTING. EOR-DEEIH-CHaRGES" 

648 PRINT"fl SETTING OF 3 RELEASES NO CHARGES"; 

650 INPUT C 

669 IF C=8 THEN 718 

678 IF C>8 AND C<li THEN 838 

688 PRINFCOMMANDER, THE SUE IS IN THE WATER. " 

698 PRINT-NEITHER ABOVE THE SURFACE, NOR BELOW THE BOTTOM. " 

788 GOTO 620 

718 PRINT 

728 PRINT !, THE SUB IS AT COORDINATES:" 

730 PRINPX ='NA;"V = u ;B, -DEPTH =";D 

748 REM NEW SUB POSITION 

758 Ai=RND(2 )-2 Bi=RND(3)-2 : Dl=RND(3)-2 

760 A=A+Ai:IF A < i THEN A=2 

778 IF A>19 THEN fl=9 

788 B=B+B1:IF B i 1 THEN 3=2 

796 IF B>18 THEN B=9 

888 D=D+Di:IF DC1 THEN D=2 

818 IF DM8 THEN D=9 

828 GOTO 548 

338 IF X=fl AND V=B AND C=D THEN 928 

348 PRINT P'RINT-SORRV, COMMANDER, YOU MISSED" 

858 Cl=Cl-i : IF Ci>8 THEN 718 

868 PRINFSORRV, COMMANDER, NO MORE DEPTH CHARGES. " 

370 PRINFBETTER LUCK NEXT TIME. " -.PRINT 

888 PRINT-MOULD VQU LIKE TO PLRV AGAIN (YES - NO)"; : INFUT A$ 
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396 IF ft$="VES" THEN 489 

998 PRINT :PRINT U THE COMPUTER KNEW VOU WERE H LANDLUBBER 

918 END 

928 PRINT 

939 PRINP'NELSON WOULD BE PROUD OF VOU" 

949 PRINT"YOU GOT THE SUB i ! !! 

958 PRINT" VOU STILL HAVE ",CL" DEPTH CHARGES": PRINT 

968 GOTO 888 
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SINK THE BISMARK 

Program Listing 

16 RANDOM 

29 REM ESTABLISH DISTANCE AT START OF GAME 

30 D=1800+RHD<2008> 

40 REM NUMBER OF SHOTS FOR ENEMY 

50 S=RND(25)+20 

60 REM YOUR SHOTS 

70 Sl=RND(25)+20 

88 V=0 

98E=8 
100 CLS : PRINT : PRINTTABC20) "DESTROYER" 

110 PRINTTAB(20) " " : PRINT : PRINT 

120 PRINT"THIS IS THE GAME OF DESTROYER. BOTH YOUR VESSEL AND THAT" 
130 PRINT-OF THE ENEMY HAVE HIGH EXPLOSIVE SHELLS. YOUR MISSION" 
146 PRINT" IS TO SINK THE ENEMY VESSEL BEFORE IT CAN SINK YOU. ": PRINT 
158 PRINT U THE NUMBER OF SHELLS FOR BOTH YOU AND T HE ENEMY ARE" 
168 PRINT-RANDOM, BUT BOTH SHIPS HAVE AT LEAST 21 ".PRINT 
170 PRINT-WTH EACH TURN, YOU MAY MOVE OR SHOOT. NOTE THAT SHELLS" 
180 PRINT B ARE LESS EFFECTIVE THE FURTHER APART YOU ARE "PRINT 
198 INPUT-PRESS ENTER TO BEGIN"; A* 
280 CLS 

218 PRINT :PRINT !, THE PRESENT DISTANCE IS NOU n ;D 
228 PRINT :PRINT«'WHAT IS YOUR COMMRND - MOVE OR SHOOT CM' OR 'SO"; 
22? INPU T C$:IF CJ="M" T HEN 260 
248 IF C^'S* THEN 929 

250 PRINT :PRINT"VOU MUST ENTER 'M' OR 'S'"; G0T0236 
268 PRINT :PRINT"HGW FAR C-" = TOWARD, '+' = AWRVV'; 
278 INPUTDi 

280 IF SGN(D1)=1 OR ABSCDiKD THEN 340 

290 FOR 1=1 TO 5 : CLS : FOR IM TO i@8:NEXT Il::PRINTCHRf<2?>: • PRINT :PRINTTAB 
(iO) "COLLISION !" 

306 FOR J=l TO 188: NEXT J 

218 NEXT I 

328 CLS : PRINT; PRINT :PRINT"BOTH SHIPS RRE G0ING D0WN , , ,„ 

330 "OR 1=1 TO 500: NEXT I: GOTO 338 

?40 D=D+D1 

359 REM GET ENEMY SHOT 

368 FOR 1=1 TO 1689 : NEXT I 

378 S=S-i 

280 IF SOB THEN 780 

29@ REM Q IS TEMPORARY VARIABLE 

488 Q=ABS(RND(10)-INT(D/400) ) 

+10 V=V+Q 

120 Q=INT(V--i8> 
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438 ON Q GOTO 499.' 528* 548.. 578.. 598.. 618.. 526.. 569.. 588. S88 
448 GOTO 469 

458 FOR I=i TO 598: NEXT I 

469 PRINT :PRINT"THE ENEHV HAS HOW ONLY"; S; "SHELLS LEFT" 
478 PRINT" VOUR SHIP HAS"; Sir 1 SHELLS LEFT" 
488 GOTO 218 

498 PRINT. PRINT"CAUTION.> YOU'RE TAKING ON l-ifl.TER" 
588 PRINT"NO SERIOUS DAMAGE VET" 
519 GOTO 458 

528 PRINT :PRINT"THERE ARE A FEW SMALL FIRES. " 
528 PR I NT "BUT T HE'- ARE UHDE? CONTROL' :GO t G 458 
548 PRINT :PRINT"YOU ARE LISTING TO PORT 5 DEGREES. !! 
"59 PRINT"«H'ER LEVEL IS TILL NOT DANGEROUS. " 
^568 PRINT"CAUTION — FIRES ARE SPREADING"!* GO T 458 
578 PRINT -.PRINT "ENGINES ARE O-ERHEATING AND THE BILGE P'JMF'S ' 
588 PRINT "ARE ACTING UP ~ t^'ING ON A LO T 3> # T ER NOW* -GOTO 45t 
'598 PRIHT.PRINT"MOST OF VOUR CREW 13 SERIOUS".'-' rW. ' 
;gp ipt h |T-. Th p c: & c:; p-j: sppPQRCHING T ^E AMMO -lAGAZINES. " : GOTO 459 
619 p RINT :PRINT' ; THE LIFE BOAT'S ARE BEING REAE2ED S ; -0LZ "__ S ^03"' ; 
-628 PRIN T ' : OF THE CORRIDORS. BILGE PUMPS ARE NE-LR r AI^JRE. ;GCTO 458 
528 PRINT. PRINT !! YOUR CREW IS ABANDONING SHIP. BILGE PU"?S ?F£ : 

648 PRINFCOMPLETELV GONE. ONE ENGINE HAS BURNED OUT. n 

659 GOTO 456 

668 PRINT :PRINT"THE ENTIRE SHI? IS BURNING AND IS" 

679 PRINT"LISTING BADLY TO PORT. ":GOT0 450 

688 P RINT:PRINT"SHE'S GOING UNDER, CAPTAIN. YCU MAV GET" 

698 PRINT" IN ONE OR TWO LAS T SHOTS. ".GOTO 459 

788 CLS-.FOR 1=1 TO 588:NE>;T I. D RINT:PRIN™E ENE^Y IS RETREATING . 

718 PRINT"VOU HAVE WON THE BATTLE ! ' " 

728 PRINT :PRINT"VOU S T ILL HAD", 5i. : "SHELLS LE CT Ch^KV 

728 PRINT :PRINT"SINCE YCU ARE SUCH A GREAT CAPTAIN, THE COMPUTER" 

740 PRINPWANTS TO KNOW IF YOU WANT to cjqut fiGRIN \ U EE OR NO v ', 

758 INPUT LI. IF L*= n YES" THEN 29 

768 PRINT :PRINT"OKAY.. QUIT WHILE YOU'RE AHEAD : ' 

778 PRINT :PRINT"THE COMPUTER SAYS, "; CHRIG4), "GOOD-BYE"; CHRSC24) 

788 PRINT. PRIN T "THE ENEMY SAYS, ";CHR$<24>; !! THANK GOODNESS 1 r UCHR$( 24) 

798 END 

388 PRINT: PRINT" YOU'D BETTER GET INTO THE LIFEBOAT ! u 

818 PRINT"HURRY, CAPTAIN i IF YOU'RE GOING TO HAKE IT!!" 

828 FOR 1=1 TO 1888: NEXT I 

J28 PRINT :PRINT"VOU LOST THIS TIME--DO YOU WANT" 

348 PRINPTO TRY AGAIN, CAPTAIN (YES OR NO>"; 

858 INPUT LI: IF LI="YES" THEN 888 

,68 PRINT :PRINT"HAD ENOUGH, HUH?" 

878 END 

888 PRINT :PRINT !, GOOD! THE COMPUTER IS HAPPY TO SEE YOU HAVE" 
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,98 PRINT'FIGHTIHG SPIRr ;i 

908 FOR 1=1 TO 1506 -.NEXT I 

910 GOTO 38 

.20 IF S1>0 THEN Sl=£i-l;GOTO 966 

920 CLS : PRINT ;PRINT"SORRV, CAPTAIN, YOU HAVE NO MORE SHELLS. " 

948 PRINT-BETTER RETREAT TO PORT. BETTER LUCK NEXT TIME. " 

.50 GOTO 830 

960 REM Q IS A TEMPORARY VAR1RBLE 

978 Q=flBS(RND(18)-INT(D/400) ) 

.80 E=E+Q 

990 Q=INTCE/10> 

1.000 ON Q GOTO 1@?0.. 1898; 1113, 1148, 1158, 1138, 1288, 1238, 1258, 1848 

^18 CLS: PRINT -.PRINT "THE ENEMY IS TAKING ON WATER. " 

1820 PRINT"THERE SEEMS TO BE SOME SMOKE. " 

1020 GOTO 256 

-<348 CLS : PRINT : PRINT"CONGRRDULRTIONS, CAPTAIN, VOL! HAVE SUNK THE" 

1058 PRINT-ENEMY SHIP ! !" 

I860 GOTO 728 

-J70 CLS:PRINT"THE ENEMY SHIP IS LOSING GROUND. " 

1088 PRINT" ALREADY THERE ARE SMALL FIRES. «':GOTO 358 

1.890 CLS: PRINT; PRINT-LOOKS LIKE SOME OF THE ENEMY'S CREW" 

~iB8 PRINT" IS TAKING TO THE LIFE BOATS, CAPTAIN. ":GQTQ 356 

1110 CLS: PRINT : PR I NT "CAPTAIN, THE RADIO ROOM HAS PICKED UP A TRANSMISSION" 

1128 PRINT"FROM THE ENEMY—THEY ARE TAKING ON WATER. " 

_*38 GOTO 258 

1148 CLS:PRINT:PRINT"THE FIRES ON THE ENEMY SHIP SEEM TO BE" 

1158 PRINT-SPREADING, CAPTAIN. n :GOTO 350 

-*68 CLS: PRINT :PRINT"THE ENEMY SHIP IS STARTING TO LIST, CAPTAIN. " 

1178 PRINTHER BILGES MUST BE OUT!": GOTO 358 

1188 CLS: PRINT :PRINT"THE ENEMY SHIP IS LISTING BADLY-SHE CAN'T' 

-58 PRINT-LAST MUCH LONGER. KEEP IT UP, CAPTAIN. M :GOTO 350 

1208 CLS:PRINT:PRINT"THE ENEMY'S ENGINES MUST BE OUT, CAPTAIN. " 

.1210 PRINT-SHE'S NOT MANUEVERING, BUT SHE'S STILL FIRING AT US. " 

^20 GOTO 358 

1238 CLS .PRINT: PRINT" IT LOOKS LIKE THE ENEMY IS ABANDONING SHIP. ■ 

1248 PRINT"POUR IT ON, CAPTAIN. fl : GOTO 350 

~M CLS .PRINT :PRINT"SHE'S GOING DOWN, CAPTAIN. I THINK THE" 

1260 PRINT-ENEMY HAS HAD IT THIS TIME. ".GOTO 350 
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MOUSE HUNT 
Program Listing 

166 REM CHANGE H MOUSE 

158 CLS: PRINT: PRINT 

288 PRIHT'THIS PROGRAM ALLOWS VOU TO GO ON A MOUSE HUNT" 

m PRINT"FOR fi VERY OBNOXIOUS MOUSE. " 

406 PRINT ,! THE MOUSE TRIES TO DODGE VOU BY HOPPING" 

506 PRINFRANDOMLV. " 

600 PRINT n YOU CAN CATCH IT BY BEING WHERE THE MOUSE LANDS. " 

708 PRINT"VOU CAN CHANGE DIRECTION, TOO. a 

808 PRINT: RANDOM 

900 T=RND(180)+180 

1188 PRINT"YQU HAVE TO GET yi~HIN";T; "FEET OF THE MOUSE TO 'KETCH' IT. " 

1280 T=T*T 

1388 REM SET UP THE LOCATIONS fiND SPEEDS 

1488 REM TO "KETCH" THE MOUSE 

1580 REM YOU ARE THE FOX 

1688 Rl=RND(19)*18+50 

1788 R2=<INT(RND(8)*2+. 5>+i)*Rl 

1888 K1=RND<8> 

1988 K2=RND(8) 

2088 IF Kl>. 5 THEN 2388 

2188 Kl=-i 

2288 GOTO 2488 

2388 Kl=l 

2488 IF K2>. 5 THEN 2788 

2586 K2=l 

2688 GOTO 2888 

2788 K2=-i 

2888 Q1=RND(488)+188 

2988 Q1=Q1*K1 

3868 Q2=RND(408)+i88 

3188 Q2=Q2*K2 

3288 IF 02=8 OR Qi=8 THEN 1888 

3388 Q3=8:Q4=8 

3480 PRINT :INPUT"PRESS ENTER TO BEGIN"; R* 

3568 CLS: PRINT :PRINT"HOP SIZES", "DA MOUSE" ; RL "V0USE";R2 

3680 PRINT 

3788 PRINT-THE COMPUTER SRVS: I WISH VOU GREAT FORTUNE IN YOUR ENDEAVOR" 

3888 PRINT'FROM THE MOUSE: DROP DEAD - TURKEY" 

3986 PRINT-FRQN THE COMPUTER: KEEP IT CLEAN, BOYS" 

4888 PRINT 

4188 Pl=3 14159254/138 

4208 K3=l 

4388 21=(03-01)*(Q3-Ql) + (64-Q2)+(Q4-Q2) 

4468 REM 

4588 REM PRINT A CYCLE 
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4686 REM 

4708 PRINT 

4880 PRINT'TRY #",K2 

4980 PRINT'THE MOUSE IS"; SQR(Zl); "FEET AWAY" 

5908 PRINT"RT LOCATION ";Q1;" BV "jQ2 

5160 Di=RND<359) 

5288 IF 2i<=T THEN 5480 

5200 PRIMT"flND TOOK OFF AT fiN ANGLE OF ";Wj "DEGREES" 

5488 PRINT"VOU ARE AT LOCATION ".;Q3;" BV ";Q4 

5680 IF Zi>2*T THEN 6208 

5780 IF 21>T THEN 6488 

5758 CLS : PRINT: PRINT 

5888 PRINT n SPLAT ! ! !" 

5980 PRINPVOU GOT IT ! ! I " 

6888 PRIHT"BOV, WHAT A MESS - SQUASHED MOUSE EVERYWHERE" 

6188 GOTO 8888 

6288 PRINT a OWWH THAT HURTS - YOU'RE NOT E«En CLOSE" 

6288 GOTO 6588 

6488 PRINT"MISSED AGAIN - BUT PRETTY CLOSE" 

6580 PRINT'WHAT DIRECTION DO YOU WISH TO JUMP"; 

6680 INPUT D2 

6788 If D2>=8 fi:f- D&£=368 THEN 7888 

6888 PRINT-BETWEEN 8 AM) 368 DEGREES ONLY" 

6900 GOTO 6500 

7880 Q5=Rl*COS< Dl*Pi ) /'188 

7188 Q6=R1*SIN(D1*PD/'100 

7288 Q7=R2*C0S(D>*P1)/188 

7308 Q8=R2*SIN(D2*P1)/180 

7409 ci=Zl 

7580 C2=Z1 

7600 FOR 1=1 TO 188 

7788 Qi=Ql+Q5 

7888 02=02+06 

7988 03=03+07 

8000 Q4=Q4+Q8 

8108 C2=(Q3-Qi)*(Q3-Ql)+<Q4-Q2)*(Q4-Q2) 

8288 IF C2>C1 THEN 8488 

8388 Ci=C2 

8488 NEXT 

8588 IF Cii=T THEN 5758 

8688 K3=K3+1 

8788 GOTO 4388 

8888 PRINT'YOU TOOK ! ,K3; "TRIES TO 'KETCH(UP)-" THE MOUSE" 

8988 PRINT'IW JO tpv RGRIN^ <VES/NO>"- 

9888 INPUT A* 

9188 IF fi*="YES" THEN 988 

9288 IF fl$O"N0" THEN 8988 

9398 END 
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CAPTURE THE ALIEN 

Program Listing 

18 REM LETS CAPTURE AN ENEMY VESSEL 

29 REM INSTEAD OF DESTROYING HIM 

38 RANDOM :CLS 

46 DIM Q(18,10) 

58 PRINT :PRINT n ENTER YOUR NAME FOR THE LOG, SIR".; :INPUTA$ 

68 S=25 

78 PRINT ;PRINT"DO YOU WANT INSTRUCTIONS. COMMANDER "; A$; : INPUTC* 

88 IF CK>"YES" THEN 288 

98 CLS:PRINT:PRINT"YOU MISSION, COMMANDER ".;A$;", IS TO CAPTURE AN" 
188 PRINT-ENEMY BATTLE CRUISER. YOU MUST NOT DESTROY THE ENEMY --" 
118 PRINT"YOU MUST TAKE HIM ALIVE. TO EFFECT CAPTURE, YOU MUST" 
128 PRINT"DESTROY ALL OF THE REGIONS SURROUNDING THE ENEMY VESSEL. * 
138 PRINT !, THE ONBOARD COMPUTER WILL KEEP YOU UP-TO-DATE ON THE" 
148 PRINT"ENEMY"S LAST POSITION. " 

158 PRINT :PRINT"THESE IS ALSO A PROTECTED AREA USING THE AREAS WHERE" 
168 PRINPX = 8 OR V = 0.. SO THAT THE ALIEN HAS A CHANCE. IF YOU" 
178 PRINT'TIRE INTO THIS REGION, IT IS THE SAME AS FIRING INTO A" 
188 PRINPPREVIOUSLV DESTROYED AREA. ": PRINT :PRINT"GOOD LUCK, COMMANDER. 

198 PRINT; INPUT "PRESS ENTER TO BEGIN"; B$ 

208 CLS; PRINT : PR I NT "COMMANDER ";A$;", YOU HAVE 25 SHOTS. " 

218 FOR X=8T018 

228 FOR Y=8TO10 

230 Q(Y, X>=8 : QC8, X)=-i : Q(V, 0)=-i 

240 Q(10,X)=-1:Q(Y,10)=-1 

258 NEXT V, X 

260 X=RND(18)-1:Y=RND(18)-1 

278 PRINT :PRM"ENEMV'S LAST KNOWN POSITION - SECTOR"; X; ","; Y 

288 IF S<=8THEN748 

298 C = X 

388 A=RND(3)-2:X=X+A:IF X<8 OR X>9 THEN X=C:GOTO 298 

318 D=Y 

328 A=RNDG)-2:Y=Y+A:IF Y<8 OR Y>9 THEN Y=D:GOTO 318 

330 IF Q<Y,X)=-1 THEN X=C:Y=D:G0T0298 

340 IF X=C AND D=Y THEN 290 

358 PRINT: PRINT" 8 12 3 4 5 6 7 8 9" 

368 FOR A=8T09 

378 PRINTA; 

388 FOR B=8T09 

398 IF Q(A,B>=8 THEN PRINT" *"; ELSE PRINT" ", 

408 NEXT B 

418 IF A=4 THEN PR I NTT AB( 48)" LAST KNOWN POSITION"; 

428 IF A=5 THEN PRINTTAB(42)"SECT0R";C; ",";D; 

436 PRINT 
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448 NEXT fl 

458 A=RND(18>:IF fl>4 THEN 528 

468 PR I NT H COMMANDER "; Rl; "',• YOU HfiVE BEEN ATTACKED" 

478 PRINT-ENERGY USED TO REPLENISH SHIELDS. " 

488 S=S-1 

498 IF S<>8 THEN 748 

588 PRINT"ONLV".;S; "SHOTS REMAINING" 

518 GOTO 588 

528 A=RND<18> : IF fl<9 THEN 588 

538 A=RND<18>-l:B=RND(i0>-i 

548 IF A=X AND B=V THEN 538 

558 IF GK8, A)=-i THEN 538 

568 Q(B J A)=-1 

578 PRINT"NOVfl IS SECTOR"; ft ", "i B 

588 PRINT: PRINT-ENTER VOU PHASER SHOT <XY> n ; 

598 INPUT fl,B 

688 IF A>9 OR B>9 THEN 588 

618 S=S-1 

628 IF A=X AND B=V THEN 778 

638 IF Q(B, A)=-l THEN 828 

648 (KB, A)=-l 

658 FOP: A=X-1 TO X+l 

668 FOR B=V-i TO V+i 

678 IF A=X AND B=V THEN 698 

688 IF Q(B,fl)0-l THEN 278 

698 NEXT B,R 

788 PRINT ,! GOOD SHOW, COMMANDER "jAfc" -- 

716 PRINT H YQU HAVE CAPTURED THE ALIEN ENEMY AND VOU STILL" 

726 PRINT"HflVE n J Si "SHOTS REMAINING. " 

738 END 

746 PRINFCOHMANDER ";A$ 

758 PRINT'YOU HAVE NO MORE ENERGY FOR PHASERS. '* 

768 GOTO 388 

778 PRINT'COMMANDER ";A$ 

7S0 PRINT n DID VOU EVER BLOW IT THIS TIME" 

798 PRINT"YOU ZAPPED THE ALIEN ! ! ! ! ! " 

868 PRINT'WELL BETTER LUCK NEXT TIME. " 

818 END 

329 PRINT "COMMANDER ";R* 

836 PRINT"GOOD SHOT 1 VOU FIRED AT A PREVIOUSLY DESTROYED AREA:' 

846 PRIHT-TURKEV!" 

858 GOTO 276 
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STAR WARP 



Program Listing 

18 REM SPACE 

28 RANDOM 

38 CIS 

48 DIM N$<5>,0*<21),Z*<21},L$<8},R$<4>,K$O>,T$<5> 

59 FOR I=1T03:READL$<I):NEXT 

68 DflTfi GAMMA 7, RUHR CENTAURL SIRIUS 12,BETEGEUSE 7, SOL 3,ANTARES 9, flDERBARAN, ANDROMEDA 

78 FORMT05:REflDN*(I):HEXT 

38 OflTfl ENTERreiSE,EXCfLIBER.DEFIfmE)£TER, ENTERPRISE 

98 FQRI=iTQ3:READK*<I>:NEXT 
188 DATA !<LINrmROMULAN, ALIEN 
118 F0RI=1T04:READR*<I):NE>ST 
128 DATA CTHULU, QUARK, CLIXNIP,XOT0P 
138 F0RI=iT05:REfl0T*(D:NEXT 
148 DATA KLEBCRVJKaDVSNIP.JOJLHTlCEL 
158 F0RMTQ21:READO$<I>:N£XT 
168 DATA RANGE AND BEARING OF THE ENEMY 
178 DATA FIRE FORWARD PHASER BANK 
188 DATA FIRE REAR PHASER BANK 
198 DATA FIRE FORWARD PHOTON TORPEDOES 

288 DATA FIRE REAR PHOTON TORPEDOES 
218 DATA LAUNCH ANTI-MATTER PROBE 
228 DATA COME UP ON THE ENEMY VESSEL 
238 DATA RETREAT FROM THE ENEMY 

248 DATA APPROACH ENEMY AT WARP SPEED 

258 DATA RETREAT AT TOP WARP SPEED 

268 DATA "USE OPTIMUM SHIELD DEPLOYMENT, MR. SULU" 

278 DATA "TURN US ABOUT 138 DEGREES, MR. SULU" 

289 DATA "MR. SPOCK, WHAT ARE &R CHANCES OF A HIT?" 
299 DATA "MR. SPOCK, WHAT OPTIONS ARE AVAILABLE?" 
389 DATA "MR. SPOCK, FULL DAMAGE REPORT" 

319 DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO STAR FLEET" 

328 DATA "LET'S WAIT, WHAT WILL THE ENEMY DO NEXT?" 

339 DATA ACTIVATE COMPUTER DESTRUCT SEQUENCE 

348 DATA "LIEUTENANT, OPEN A VOICE CHANNEL TO THE ENEMY. " 

358 DATA "TURN 98 DEGREES TO PORT, MR. CHEKOV" 

368 DATA "TURN 98 DEGREES TO STARBOARD, MR. CHEKOV" 

378 F0RI=1T021 : REflDZ*< I > : NEXT 

388 DATA RANGE. PHASEF, PHASER.. TORPF, TORPR, PROBE, CLOSE, AWAY 

398 DATA PURSE, ESCAPE, SHIELDS, ROTATE, CHANCES, COMMANDS 

488 DATA DAMAGE, BLUFF, WAIT, SUICIDE, SURRENDER, LVEER, RVEER 
418 PRINT :S*=N*<RND<5)> 

428 PRINT"SPACE, THE FINAL FRONTIER. ..." 

438 PRINTTHIS IS THE VOYAGE OF THE STARSHIP "; S$; ". IT'S FIVE" 

448 PRINT-YEAR MISSION, TO EXPLORE STRANGE NEW WORLDS, TO SEEK" 

459 PRINT 'OUT NEW .IF". AND MEW CIVILIZATIONS, TO BOLDLY GO WHERE" 

460 PRLfPNO MAN HAS GONE BEFORE. " 

478 PRINT:PRINT:PRINT.FORI=1TO10OO:NEXT 

489 PRINT"YEQMAN.";TPeC10)"SIR, EN T EP YOUR NAME FOR THE LOG"; : INPUT C* 
m PRINT 

588 PRINFSPOCK.VABCiOrYOU ARE IN COMMAND OF THE ";5$;", CAPTAIN ",Ct, ". " 

510 PR!NTTAB(10)"D0 YOU WISH A LIST OF POSSIBLE COMMANDS, SIR"; INPUT R$ 

520 IF A$="YES" T HEN GOSUB 3879.GOSUB32S0 

538 PRINT :E$=K*(RNDG>}:F$=R$<:RNDC4>}:U*=TICRND<:5}> DteLfRND<8)>-Y=58*<RND(0,>-. 5) 

549 REM 

558 PRINTCfc " ' "; TAB(18)"CAPTAIN'S LOG, STARDPTE". MeRND<i8898»/10+2988 

568 PRINTTfiEMiO'HE ARE PRESENTLY ON COURSE FOR ";D* 

5~8 ON RND(5;G0T0588, 508,520,533,548 

588 PRINTTAB(10)"TO RESCUE MINERS UNDER ATTACK B 1 -' ",E* 

590 S PIT T AE''18)"BA TT LE CRUISERS. ":G0 T 0658 

688 PRINTTAB(10)"WITH A CARGO OF DIlI^IUM CRYSTALS TO POKER" 

510 PRINTTABa0)"THE COLONISTS STATION. VG0T0658 

620 PRINTTAB'.:9>''T0 SEARCH FOR NEW MINERALS FOR THE FEDERATION. " G0T0659 

530 ?RINTTAB(10)"WITH THE CURE FOR MARTIAN FLU. \GOTO650 



198 



646 PRINTTAB<10)"FOR OBSERVATION OF fl BLACK HOLE " 

65S 2QSUB3430.PRINT"SULU:",TAB(10>"SIR, I'M PICKING UP fl VESSEL ON AN ATTACK" 

668 PRINTTAB(18}"VECTOR WITH T HE ";S$;". " 

S79 GOSUS3490:PRINT"SPOCK."iTflBae'/SHI?'S COMPUTER INDICATES THRT IT IS THE" 

688 PRINTTAB<10)E$j " VESSEL, ";F$;", CAPTAIN," 

696 PRINTTABaO) "UNDER COMMAND OF CAPTAIN " Ul, ". " 

788 GOSUB3490:PRINTC$i": n J TRB(i0)"SOUND RE- ALERT, LIEUTENANT UHURfl. "" 

710 G0SUB3498.PRINT"UH!JRA: AYE, SIR. " 

729 IFRND<2>=dTHENX*="SUL'J"ELSEX$="CHEK0y" 

738 H1=0:H2=0:G=0:X=0 .5=8 

748 P=0 

750FORI=lTO4:Z<I>=188:Sa>=180:NEXT 

768 R=1888-RND<188) 

778 B=RND<368>-188 

788 Bi=RND<3S8>-188 

798 G0TQ828 

888 IF K7THEN848 

818 IF D12THEN848 

328 G0SU83238 

338 G0SU63438 

848 PRINT:PRINTX*;":"iTAB(10)"WHAT ARE YOUR ORDERS, SIR", : INPUTM* 

858 PRINT: 1=8 

868 F0RJ=lTO21:IFZ*a>=H*THENI=J 

378 NEXT 

888 IF ia0RI>21THENPRIN"n«":";TflB(18}* T R0UBLE HEARING YOU, SIR" .G0T0848 

898PRINTC$;":"iTAB(18)0$(D 

908 0NIG0T0828, 918, 928, 938, 948, 958, 968, 968, 978, 978, 1588, 968, 1558, 1688, 1618, 988, 2898, 1998, 2848, 3438, 3458 

910 IFH1<7THEN1060ELSEPRINT"CHEKOV: FORWARD PHASERS ARE DEAD, SIR. ":G0T02898 

920 IFHl--:6THEN1360aSEPRINT n CHEKOV: READ PHASERS ARE DEAD, SIR. ":GOT02898 

338 IFHl<9THEN13 7 3ELSEPRINT"CHEKOV: FORWARD PHOTON TORPEDOES ARE DEAD, SIR. ":GOT02898 

948 3FW<8THEN1418ELSEPRINT"CHEKOV: REAR PHOTON TORPEDOES ARE DEAD, SIR. ":G0T02898 

958 IFHiaiTH£N1420ELSEPRINT"CHEKOV: PROBE LAUNCHER IS DEAD, SIR ".G0T02898 

968 IFHi<14THEN1450ELSEPRINT"SULU: IMPULSE ENGINES ARE DEAD, SIR. ":G0T02898 

978 IFH1<11THEN1458ELSEPRINT"SULU: WARP DRIVE IS OUT, SIR. ";G0T02898 

988 IFH2<11THEN398ELSEPRINT"SP0CK: THE ";E*;" HAS NO ENGINES, SIR. ":G0T02898 

398 IFG=8THEN1798 

1888 PRINT-SPOCK: I DO NOT THINK THAT THE ";E$; "S WILL BE" 

1818 PRINTTAB<18>"F00LED BV THAT MANEUVER AGAIN, SIR. " 

1828 G0T02898 

1838 IFABSCBX98THEN1850 

1848 PRINT'THEKOV: WRONG PHASER BANK, CAPTAIN. ":G0T02898 

1858 PRINTCHEKOV: PHASERS FIRING, SIR. " 

186,8 R9=R:B3=8:G0SUB3398 

1878 IFRND<8XF8THEN1898 

1888 PRINT'tHEKOY: MISSED HI*, SIR. ":GOT02838 

1898 IFRNDC8X. 2THEN1228 

1188 V=. 5 

1118 K=l 

1128 FORK1=2T04: IFS<K)>=S(Ki)THEN1148 

1138 K=K1 

1148 NEXT 

1158 IFS(K»58THEN1178 

1168 K=RND<4> 

1178 H2=H2+V 

1180 °RINT"SFOCK: A HIT ON SHIELD #";K; ". " 

1190 IFS(K)=0THEN1238 

1288 S<K)=S«)-38*V*(RND(0)+. 1) 

1218 IFS<K»0THEN2090ELSEPRINTTAB(18) "WHICH IS NOW GONE, SIR. ":S<K>=8:G0T02899 

1228 V=l : PRINFCHEKOV : DIRECT HIT, SIR. " : G0T01118 

1238 PRINT :PRIHT"CHEKOV: GOT HIM, SIR " 

1248 IFRND(8)>. 5THEN3828 



1258 G0SUB3498:PRINT"SP0CK 
1268 G0SUB3498:PRINTC*. 
1278 Q0SUB34S« : PRI NT : *UHURS 
1280 G0SUB3498:PRINTC$. 



E ", Efc " VESSEL REMAINS INTACT, CAPTAIN. " 
;TAB<18>"0PEN A HAILING FRESUENCi', LIEUTENANT. " 

HAILING FREQUENCY OPEN, SIR. " 
;TAB<10)"THIS IS CAPTAIN ";C$;" OF THE STARSHIP" 
1298 PR3NTTABa8)S$i ". PREPARE TO BEAM OVER SURVIVORS. " 
1388 IF RMX8». 5THEN1338 

1318 GOSUB3438:PRINTn$;"."jTAB<10>"l AM AFRAID THAT WILL BE IMPOSSIBLE," 
1328 PRINTTABClBrCAPTAIN, SINCE I JUST ACTIVATED OUR AUTO-DESTRUCT. " 
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1330 F0RI=13TQiSTEP-i : G0SUB3588 : PRINTTAB<18), I : NEXT 

1340 PRINT :G0T03628 

1350 G0SU83498-.PRINTIJ*;": B ;TR6<18>"VERY WELL CAPTAIN, OUR SHIELDS HflVE BEEN LOERED. ":G0T03228 

1360 IFABS<B>O8T!£N1848ELSEG0T01858 

1373 IF ABS<8»=98THEN1B48 

1388 R9=R:B9=B:G0SUB3358 

1390 IF RNDC8»F37HEN1880 

1400 IF RNTK0K. 25THEH1100ELSEGOTO1220 

1413 IF«BS;B"-'J0THENi0*3E_SEGQTO1388 

142S IFX<10THEN1430ELSEPRINTTH.EKW: WE HAVE NO TORE PROBES, SIR ":G0T02188 

1430 X=X+1 : IFRND<8K. 87135THEN1448ELSEG0SUB3498 : PR5NPSP0CK : PROBE LOST,. CAPTAIN. " : G0T02898 

1448 G0SUB3498.PRINT"SP0CK: THE PROBE IS HOMING IN ON THE ";F*;", SIR. ":GOTO3028 

1458 0NI-6Q0T01468, 1478, 1488, 1498, 1580, 1538 

1468 G0SiJB2?98:R=A8S<R-Y> :G0T02898 

l-ro gosubsio •--: ---■ : - =: t-jc-o--'e , ( j~c«?el3E-:-: "v^?» 

1480 30SUB2838:R=ABSCR-2*¥>:GOT02898 

1490 QOSUB2840.R=ABS':R+2*¥} : IFR>5008THEN2?08ELSEGOTO2090 

1580 S=1:FQRJ=2T04: IFZ<JK=Z<S)THEN1518ELSES=J 

1518 NEXT 

1520 GOSU83500.PRINT:PRINT"SULU:";TAB<10rSHIELD *"iS;"IS IN POSITION, SIR. " : G0T0849 

1538 8=8+138 

1548 IF3<=188THEN2098ELSE3=8-360 : G0T02938 

1559 GOSUB3490:PRINT"SPOCK: ST RANGE", R; "I WOULD ESTIMATE THE PROBABILIPt 1 " 

1568 R3=R:89=B:GOSUB3390:F8=F8*188 

1578 PRINTTABQBrOF A PHASER HIT AT"; C 3;"AND T«E PROBflBILITV" 

1588 R9=R : B9=B : 60SUB3359 : F9=F9*188 

1538 ?R:MTT:iS(10)"OF fi PHOTON TORPEDO HIT AT";F9;\ ".G0T0848 

1680 GOSUB3078. 30*0840 

1618 G0SUB3598 : PRINT . PRINT"SPOCK : DAMAGES ARE AS FOLLOWS : " : PRINT 

1628 PPINT T flB(12)"SHIELD r,7AB<22}S$;TABG5>F* 

1638 c 0Ri=lT04.eRINTTFiB;i5':. T A8<25)Zw};TABn8WJ>:NE»T 

164? : 'RIN T .PRIN T TPB':i0:-Sfc" DAMAGE ", 

1650 IFH1>5. 5~HENiSS0ELSEPSIN T ' : NONE'' :G0 T C1728 

1660 PRINT. PRINTTfi6<28) !, REflR °HASERS OUT" 

1670 I FHK7THEH172SELSEPR I N T_ ftE ^: 28 > " r OPM^RD PHASERS OUT" 

1688 IFHi<3THENr30ELSE?RINT T P6<20 v 'REAR PHOTON TORPEDOES DEAD"' 

1698 IFH139THEN1730ELSEPRINTTABC20} "FORWARD PHOTON TORPEDOES DEAD" 

1700 I™i'll T i€Nr30ELSEPRINTTAB(23> n PRO8E LAUNCHER DESTROYED" 

1718 PR!NTTABf28)'*HARP DRIVE LOST" 

1729 !"HK14THEN1730ELSE?RINTTpB':28:> !i IMPULSE -9SP. LOST" 

i 7 70 ~IN T ."RINT T Ato3'Ft " DAMAGE ", 

1 7 <W IFH2D5. 5THEN1750ELSEFRINT"NOHE" ■ PRINT . G0T0848 

1750 PRINT :PRINTTAB(28) "ALL PHASERS DEAD" 

T68 IF H2<? T HENPRINT:GO T O840ELSEPRINTTAB<20V'ALL TORPEDOES DEAD" 

i"0 I :: H2<;a7HENFR5NT.GO T OS40EL3EPR!NTTAB(20)"WARP DRIVE LOST" 

r38 5FH2014THENPRIN" GC"O6-0EL3EPRINT T A8C20V I IMPULSE ENGINES 0U T '': PRINT :GO T O840 

1798 PRINT T A6<;i9>"USE CODE 2. '' 

1888 G0SUB3498:PRINT"UHURfi: BUT, SIR, THE ";E*;"S BROKE CODE 2 YESTERDAY, SIR. " 

1818 GOSUB3498PRINTCfe , :".;TAB(10)"CODE 2, LIEUTENANT, IMMEDIATELY!" 

1828 G0SUB3498.PRINT"UHURA. WE, AVE, SIR. GO AHEAD, SIR. " 

1838 GOSUB3<i90:PRINTC*;":";TAB<10}"THSS IS CAPTAIN "jCfc* OF THE STRRSHIP ";S*j". " 

1848 G0SUB3588:PRINTTABa8>"WE ARE UNDER ATTACK BV THE ";E$i" SHIP ";F$ 

1350 GOSUB3509 PRINTTRB<19)"AN0. IN ORDER TO D REVENT THIS SHIP FRON FALLING" 

1368 GOSUB2508:PRINTTAB(18;"IMTO ENEMY HANDS, WE ARE ACTIVATING THE CORBOMTE" 

1878 GffiUB3508:PRINTTAB':i9) , 'DEV;CE. SINCE THIS WILL RESULT IN THE COMPLETE" 

1330 3OSUB2508. : PINT T PB / :0--PNNIH5LA T ION OF ALL MATTER WITHIN A RANGE OF 5868" 

1890 GOSL83500.PR:N T *RBU0r?EGA!''E T ERS, ALL VESSALS SHOULD BE WARNED TO 3 T A¥" 

1908 G0aiB3588:PRINTTAB(18) "CLEAR OF THIS AREA FOR THE NEXT"^NtT). 

1310 PRINTT9BC0) "SOLAR YEARS. " 

1320 G=1:IFRND<8» 2 T HEN1363 

1930 G0SUB349B:PRINT"SuLU. THE ",E$, " IS MOVING AWAY AT WARP 18, SIR. " 

1340 GO3UB3430:FRI > -,-'3POCK. THE TACTIC APPEARS TO HAVE BEEN E"EC T IVE, SIR. '' 

1350 pRINTTABa8)"THE ";EI; "S HAVE BEES REPULSED. \GG7O3220 

1363 GC-SlB;430.F?:INT'*SLVJ. NT HCDIRTE CHANGE IN r ,Ef, "'STOURSE OR SPEED. SIR. '' 

1373 GCSUB2430. PRINT ■'SPOCK. H WOULD SEEK THAT THEY 5 HAVE, AS YOU HUMANS" 

1383 printtse; :-:>: '-u r it, "cal-ED cur bluff, -' captain. - .30102330 

1333 G0SUB3430 PRINT'' CCP^ER.", . F&RJJ=i3 T 0i3~E-'-: z 'Z>rrm<V; j T-G0SUSI333 ,E/~ 

1000 c 'P* , '- TT PB<i0V' T HE ",3$, "HAS BEEN DESTROYED. " 

2513 0=R:lD-28?'.- GOSUB3500,pRINT t AB'10)"RADIUS OF EXPLOSION" > "meGAHE'EPS. " 

2928 I?':>p t HENPPIN t trp IS^Ei, " VESSEL DES-ROVED. "EL5E?R'.N~ftB''i8'Efc " VESSEu REMAINS INTACT. " 
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2838 S0TQ3229 

2948 IFE*="RO*LU s N"THE»*RINT"ijHURA: NO ANSWER FROM THE "iFfc", SIR. 

2858 G0SUe3438.FRINTCi;"-.";TftB''.ie>'TH:3 IS CAPTAIN ,! ;CJ;" OF THE STARSHP ",S$,\" 

2868 PR!NTTfiB<ie>"l!IlI VOU RCCEPT OUR UNCONDITICSNftt. SURRENDER?" 

2878 GC)SUB3498:PRINTtJ$;". ,, TABa9 v, 0N 3EHAL- OF THE '■£*;" EMPIRE.. I ACCEPT VOUR" 

2889 PRIN T TAB<i8> "SURRENDER, PREPARE FOR Pf€DI»" BOARDING. ".G0T03228 

2898 REH ENEMY MOVE 

2188 IFH2<3T«EN2299 

2119 IFH2<11THEN2138 

2128 1FH2>13. 9THEN2650 

2138 IFH1>18. 9THEN2788 

2148 IFH1>8. 9THEN2178 

2153 IFR<R»ID<208:< T1 €N274e 

2168 G0SUB2798:R=ABS<R+ 1 -'} : IFR:5990 TU E>I2?OOEL3E3O T OS2» 

2178 IFRMX9K 5THEN2168 

2186 G0SUB2828-.R=ABSfR-¥) :IFR>5898THEN2798ELSEGOTOS20 

2198 !FHiC?THE>G259 

2288 IFH13THEN2159 

2218 IFH1M9. 9~HEN2 7 99 

2228 IFRWX9K. 5TOI2179 

2238 IFRWKBK 5 X HEN2259 

2248 G0SUB2838:R=A8S(R+2*Y} . I c R>389?THE l !2780ELSEGO T O320 

2258 GOSie28'i8:R=fl3S':5.-2*'-'' 3J"08i? 

2269 IFR>798 T HE')2258 

2279 :FR:-288THEN2248 

2288 G0T02158 

2298 IFH2<6THEN23?8 

2389 1FHK7THEH2379 

2319 IFR<388 T HEH2259 

2328 IFR>788THEN2249 

2338 IFH1>7. 9THEN2358 

2348 IFINT<ABS<Bl/'90))>Itf:ASS(B/98: )THEN2258 

2358 IFABS(Bi-98»A8S<B-90'>-28THEN2358 

2368 IFRND(9K 5THEN2258ELSEG0T02248 

2279 R9=R . B9=8i : 60SUB2298 : R9=R . B9=31 : G0SUB3359 

2388 IFF8>F9THEN2258ELSEG0T02319 

2398 IFHK7THEN2450 

2488 IFRM50THEN2428 

2418 IFRND'.OK. 5THEN2188ELSEG0T02259 

2420 IFR>=400THEN2448 

2438 != : «BS'31X39 T -tN2S8eELSEG0 T 02189 

2448 IFR>788THEN22<19ELSEG0T0234@ 

2458 IFTOT88THEN2248 

2468 R9=R : B3=B1 : GOSUB3358 : R3=R . B9=B1 : G0SUB3398 

2479 IFF9>F3THEN2348 

2489 IFW>6. 9THEN2588 

2498 IFINT<ABS<B1/98)»INT(ABS<B/98»THEN2250 

2588 IFf«S(Bl-9e)>=fiBS(B-90>-28TlBG888ELSEGOTO2258 
2518 IFHK6THEN2648 

2528 T=H1-V:1FABS<T-SK 1MN2548 

2538 IFABS<Hi-6. 26)>. 3THEN2540ELSEPRINTCHEKOV: REAR PHASERS DEAD, SIR. " :QOTO2640 

2548 IFA8S(T-7)C 1THEN2568 

2558 IFABS<Hl-7. 25)>. 3THBG568ELSO>RINT"CHEK0V: FORWARD PHASERS DEAD, SIR. " :G0TO2648 

2568 IFA8S(T-8)C 1THEN2588 

2578 IFABSCH1-8. 25)>. 3THEN2588ELSEPRINT"CHEK0V: REAR PHOTON TORPEDOES DEAD, SIR. "-.COT02648 

2589 1FRBS<T-9X. 1THEN2698 

2598 IFABSCHi-9. 25)>. 3THEN2600ELSEPRINTCHEKOV: FORWARD PHOTON TORPEDOES DEAD, SIR. " :G0T02648 

2609 IFABS(T-ilK 1THEN2620 

2610 IFABS(Hl-li 25». 2THEN2S23ELSEPRINT"CHEK0V: PROBE LAUNCHER AND HfiRP DRIVE GON£ SIR. " :GQT02648 
2628 IFfiBS'.T-14K lThtN2648 

2638 IFABSCH1-14. 25)>. 3THEN2648ELSEPRINT"CHEK0V: IMPOSE ENGINES DEAD, SIR. " 

2648 RETURN 

2658 IFP>8THEN880 

2668 P=l • QOSUS^dW • PRINT "SPOCK ■- THE ";E*;" SHIP IS COPPLETELV CRIPPLED, SIR. " 

?S?8 PRINTTAB(18)"WILL VOL ALLOW THEM TO SURRENDER", :IHPUTA$:IFA$= , VES"THENi268 

2689 PRINTSPOCK: DO VOU WANT TO DESTROV THE ";«;", CAPTAIN"; ,INPiJTA$:IFfi$="VES"THEN840ELSEGOTO2718 

2698 REM LOSS OF CONTACT 

2709 GOSUB3490: p RINT'SlJL:j: CONTAT WI T H THE ";£*;* VESSEL HAS BEEN LOST, SIR. " 

5?i& rjOS!JB2490;PRIN T C$,": !, ;TftB(10)"RESl« COURSE FOR ";M;", «. SULU. " 

2729 G0SUB3499:PRINT»SUUJ' AVE, AVE, SIR. ":G0T03229 
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2730 REM 

2743 30SUB3498:PRINT"SP0CK: SENSORS INDICATE THAT THE "; c *,» IS OVERLORDING" 
2758 PRINTTRB<18>"HHAT REMAINS OF "S 9NTI-MRTTER -'OM. UNDOUBTEDLY" 
2760 PRINrSB;i0>"A SUICIDftL MOVE.. CAPTAIN. PODS MILL DET0NRTE" 
2770 PR:STTR3<10>"IN 12 SECONDS. ..." 

2788 GOae349e:FORJJ=iBTOlSTEP-i:PRINTTO.:i0>.T.J.GOSUB-50( ; i NEXT." G0T02828 

2798 R=R-RND(288) 

2888 B=RND(368>-188 : B1=RND<368>-188 : IFR<8THENR=-R 



2318 RETURN 

2328 R=P.+RND(298> :GOTO230e 

2838 R=R-RND(488' .00102806 

2840 R=R+RND(488}:GOTO2880 

2858 GOSUB3«e.PR3N^SPOa< THE »,E|; " IS FIRING PHOTON TORPEDOES AT US " 

2868 R9=R : B?=81 . G0Sl'B3358 : IFRND<8»F9THEN38i8 

2878 IFRNDC8H. 4 T HEN2988ELSEGOTO2910 

288B G0SU63498:PRINT"SP0CK: THE ";£*;" IS FIFING PHASERS AT US, SIR " 

2898 R9=R:89=B1:GOSUB3398:;FRND(0»F8THEN3818 

2936 IFRNDO--C 2">'EM2988 

2918 V=. 5:K=RW)(4):IFS=8THE>f>57S 

2928 K=S 

2939 PRINTTRB(18)"fl HIT ON SHIELD #";K 

2948 IF7(K>C=8THEN2978ELSEZ(K)=Z<K)-38*V*(RND(8>+. 1) 

2958 Hl=«l+V:G0SUB2518:IF2(K)>eTHEN88e 

2968 Z(IO=8:PRINTTRB<i8>"THflT'S IT FOR SHIELD IMG", SIR. ':G0T0888 

2978 G0SUB3498:PRINT"C0MPUTER: THE ";S$;» HfiS BEEN DESTROVED. ":GOT03228 

2988 V=i:K=RND<4):IFS=8THEN3988 

2998 K=S 

3888 PRINTTRB(18)"fl DIRECT HIT ON SHIELD IMC", SIR ":G0T02948 

3818 PRINTTflB<ie>"E^/FSIVE MANEUVERS WERE EFFECTED, NO DRHRGE. "G0T0888 

3828 PRINT:Q=RND<2ee):IFQ<RTHEN3858 

3838 GOSUB3498:PRINT"DOMF11TER: RADIUS OF EROSION"; Qj "MGM. " 

3848 PRINTTRB(10)S*; " HRS BEEN DESTROYED. ":G0T03228 

3950 G0SUB3498:PRINT n SP0O<: n ;TfiB<i8)EI;" VESSEL DESTROVED, SIR." 

3868 PRlNTTftBUerRRDIUS OF EXPLOSION HflS"; & "NGM. ":G0T03228 

3873 PRINT:PRINT"SPOCK: THE POSSIBLE COMHRNDS ARE RS FOLLOWS" 

208B PRINT: PRINT"CQDt COHMRND CODE COffiflND" 

3898 PRINT'RRNGE RANGE, SEARING PHflSEF FORWRRD PHRSERS" 

3188 PRINTPHRSER RERR PHRSERS TORPF FORHRRD TORPEDO" 

3118 PRINTTORPR RERR TORPEDO PROBE RNTI-MRTTER PROBE" 

3128 PRINT"CLOSE RPPRORCH (IMPULSE) AWAY RETREAT (IMPULSE)" 

3138 PRINT"PURSE RPPRORCH (HRRP) ESCAPE RETREAT (HRRPV 

3148 PRINT'SHIELDS OPTIMUM SHIELDS ROTATE 188 TURN" 

3158 PRINT"CHRNCES FIRING CHANCES COMHRNDS REPERT COMHRNDS" 

3168 PRINT'DRMRGE FL1L REPORT BLUFF TRV BLUFF" 

3178 PRINT"WRIT ENEMY'S TURN SUICIDE SELF-DESTRUCT" 

3180 PRINT"LVEER TURN LEFT RVEER TURN RIGHT" 

3138 PRINT'SURRENDER". PRINT. PRINT"PRESS ENTER TO COFINUE", .INPUTAI CL ! - RE"'RN 

3280 PRINT :PRINT"SPOCK.".i TAB' 10>Fti" IS AT RANGE"; R; "HGH, BEARING"; B; 

3218 PRINTTAB<10> "DEGREES. ": RETURN 

3223 PRINT. PRINT-COMPUTER: DO TO WISH TO ATTEMPT ANOTHER BATTLE" 

3238 PRINTTAB(18)"IN COHMRND OF THE ";Sfc : INPUTft* : 1FA*="YES"THEM548 

3248 PRINT : PRINT" COWUTER : DO TO WISH TO CHANGE SHIPS"; INPUTAJ 

2250 IFai="VES' THENS*=N$(RND<5» ;8OTO580ELSEGOTO3480 

2268 PRINT. PRINT"NOTE WEAPON RANGES ARE:" 

3270 PRINT pvTi|T i ih d SERS 3-498 MGM <OP T IMUM 208 MGM>" 

2288 PRINT" TORPEDOES 388-788 MGM (0P T IMU<1 500 *GK}'' 

3298 PRINT" PROBES ALL RANGES" PRINT 

3200 PRINT'PHRSERS ARE HOPE DERDL'-' THAN T ORPEDOES. PROBES CAUSE" 

2218 PRINT"TOTAL DESTRUCTION, BL'T ARE EFFECTIVE ONLt 7 =ERCEN T " 

2228 PRIHT''OF >E : It"E. T uR D ECOES AND LASERS ARE MORE DEADLY" 

2220 : Ri«T"v<HEN THE BEARING OF T HE ENEPY IS CLOSE TO 8 OR 188" 

72iS W;N T -2EGREES. ' : PRINT =?:NTPRESS EN"» TO 20N~I^uE"2 3F ; ~A$. CIS. RETURN 

2250 F9=8 . IFABS(R9-500»208THEN3388 

3268 "9=i-(R9-58B)1 2,-'48088 GOSUB2510 

2270 F9=P9*SIN'BT: i +''2-!NT^BS(B9.?8:^V2 

1288 RETURN 
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BOMB DISPOSAL SQUAD 

This is a spiced up version of the original program. There is a 
flashing "TICK" while the computer waits for your input. The setup 
procedure also is reduced. 

Program Listing 



18 REM TMIS IS T HE PROGRAM OF TIME BOMB 
26 REM THE BOMB CONSISTS OF 4 STICKS OF 
20 REM DYNAMITE AND IS CONNECTED TO A 
46 REM DIGITAL CLOCK RND OTHER SENSORS. 
58 REM UNFORTUNATELY, YOU CfiNNOT JUST 
68 REM CUT THE WIRES FROM THE CLOCK. 
78 REM IF THE WIRES ARE NOT CUT ACCORDING 
38 REM TO SEQUENCE, BANG' YOU BLOW UP. 
98 RANDQM:CLS:PRINTTAB<28> !, TIME BOMB" 

180 PRINTTAB(20) !: !i 

118 PRINT :PRINT"THE TIME BOMB IS SET TO EXPLODE AFTER 6 MOVES, YOU" 

128 PRINT'MUST DEFUSE THE BOMB BEFORE THEN, OR ELSE THE RESULTING" 

129 **JNT"EXPLCS10N WILL GET YOU MISPRINT 

140 PRINT'THERE ARE 10 WIRES LABELED 1 TO 18, 2 OF THESE WIRES WILL" 

158 PRINT'CRUSE IMMEDIATE EXPLOSION IF CUT !! H .PRINT 

160 PRINT-OF THE REMAINING 8 WIRES, 4 ARE NOT CONNECTED TO ANY" 

178 PRINT'SENSOR, INCLUDING THE CLOCK. THE BOMB MAKER PLANTS" 

180 PR1HT-THESE FALSE WIRES, JUST TO GIVE YOU A HARD TIME IN" 

190 PRINPDEFUSING THE BOMB. LPRINT 

288 INPUT "PRESS ENTER WHEN READY TO BEGIN"; A$ 

218 CLS 

220 REM THE WIRES ARE 

228 F=4 

248 FOR I=1T018:W<I>=2:NEXT 

258 REM SET TWO WIRES TO CAUSE EXPLOSION 

260 FOR 1=1 TO 2 

2 7 J=RND(10):IF W(J)C2 THEN 278 

288 W(J)=2:NEXT 

298 REM SET UP HARMLESS WIRES 

286 FOR 1=1 TO 4 

210 J=RND(18):IF W(J)<>2 THEN 310 

220 M(J)=1.NEXT 

220 REM THE REST ARE LIVE 

248 M=8 

250 M=M + i:IF M>6 THEN 638 

260 CLS: PRINT :PRINT"THE BOMB IS "; 

278 IF M=i THEN PRINTTICKING AWAY" ELSE PRINT-STILL TICKING" 

288 PRINT :PRINT"WHICH WIRE TO CUT?".; :P=POS(0) 
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398 L=8:fi$=" ":J=1 

406 IF fl$=" " THEN A$="TICK !" ELSE A$=" " 

418 PRINT?9L Rf ; CHR$C38>; : 1=8 

428 1=1+1: IF I>58 THEH 480 

428 L*(J)=INKEV$:1F L$(J) = " THEN 428 

443 IF L$(J)=CHR$(8) THEH J=J-1:PRINT8133+P.-CHR*<8}; :P=P-1:Q0T0 428 

458 IF L*(J)=CHR*(12) THEN PRINT3193+P,CHR*(i2):G0T0 478 

468 PRINT@192+P,Lt<J , »; : J= J+i : F-P+l : GOTO 428 

479 p$=»»;FOR 1=1 TO J:P$=P*+L*a>:NEXT I 

488 L=VAL<P$> : IF L<1 OR L>18 THEN 518 

498 IF W(L)08 THEN 528 

588 PRINT :PR1NT"S0RRV THAT'S BEEN USED": FOR 1=1 TO 1868 .NEXT I: GOTO 368 

518 PRINT: PRINT "TRV PICKING fl NUMBER FROM 1 TO 18 THIS TIME" 

528 FOR 1=1 TO 1888: NEXT I. GOTO 368 

538 IF W(L)=3 THEN 688 

548 IF W(L)=1 THEN 688 

558 W<L)=8:F=F-1 

568 IF F=8 THEN 648 

578 IF M=6 THEN 688 

588 PRINT: PRINT-GOOD SHOW ! NOW ONLY"; F; "MORE TO GO. " 

596 FOR 1=1 TO 1588: NEXT: GOTO 358 

688 IF M=6 THEN 688 

618 W(L)=8: PRINT :PRINT n OH! OH! THAT WAS A HARMLESS ONE" 

628 PRINrSTILL !, ;F,"MORE LIVE' ONES TO GO !' 

638 GOTO 598 

648 CLS: PRINT :PRINT !i !40W ! WHAT fl GREAT JOB !" 

658 PRINT :PRINT"VOU SHOULD HAVE BEEN WITH THE BOMB" 

668 PRINFDISPOSPL SQUAD. AND YOU DID IT IN"; to "MOVES. " 

678 GOTO 728 

688 CLS:PRINTCHR?<23>; 

690 PRINT852& "BflAA"; 

780 FOR I=1T0158:NEXT 

718 PRINT n RRR000000i1MMnM ! I " 

728 FOR 1=1 TO 2888 .NEXT 

73ft CLS : PRINT :PSIN T :PRINT n MRNT TO TRY ANOTHER BOMB (YES OR NO)"; 

748 INPUT fl$:lF Hf-= i 'YES il THEN 218 

"56 & RIHT:PP.INT''HEVER DID LIKE EXPLOSIONS, DID -fl? u :PRINT 

768 END 
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BIORHYTHM 

This program is changed from the original. It will display 13 
days starting with the date you specify. Press ENTER to scroll one 
day at a time. Press the "up-arrow" to scroll the next 13 days. Press 
"X" to terminate the program. 

Program Listing 

is as 

29 90=2*3. 14159 

30 DIM A<i2> 
40 DIM M$<12> 
50 DIM X$<51> 

60 INPUTTHTER YOUR BIRTHDflV W, DD, YY) " ; SI, {), V 

70 INPUT-ENTER TODAY'S DATE (MM,DD,¥V) ; ^^1. Yl 

80 IF M > 12 OR Ml > 12 THEN 190 

90 VI = 1900 + VI 

100 V = 1900 + V 

110 P=0:Q=0 

120 R = VI - V 

130 S = R * 365 

140 FOR 1=1 TO 12 

150 RERD fl(I),M$(I) 

160 NEXT I 

170 IF Dl > fl(HD THEN 190 

180 IF D <= fl<M) THEN 200 

190 PRINT-WOULD YOU LIKE TO TRY THAT flGflIN?"*RPTTOE-GflTO M 

200 IF INKY / 4) O V / 4 THEN 22m 

'210 fl<2) = 29 

220 FOR J = M TO 12 

230 P = p + fl(.J) 

240 NEXT J 

250 P = P - D 

260 fl(2) = 28 

270 IF INKY1/4) O Yl/4 THEN 290 

280 fl(2) = 29 

290 FOR J = Ml TO 12 

300 Q = Q + FKJ) 

310 NEXT J 

320 Q = Q - Dl 

330 S = S + INKR / 4) + P - Q 

340 PRINT 
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358 PRINT "YOU RRE ";5*" DflVS OLD" 

368 PRINT 

278 PRIHT'YOUR BIORHVTHM PROFILE IS:" 

388 P=INT(23*<y23-INT(S/23»+. 5) 

398 PRINT TftB<5), "PHYSICAL = "iP 

488 T = INT(28*(S/28-INT<S/28»+. 5> 

418 PRINT TftB<5>,"EH0TI0NfiL = H .;T 

428 E = INT(33*(S/33-INT<S'33»+. 5) 

438 PRINT TRB^V INTELLECTUAL = ";E 

448 PRINT 

458 PRINTTHE FOLLOWING IS ft GRflPH OF TOUR BIQRHYTHK. " 

468 PRINT-PRESS ENTER TO SCROLL ONE DflV RT ft THE PRESS" 

478 PRINTO«$a4^ "C H i CHR*<34>; " TO SEE THE NEXT 12 DftVS. H 

488 PRINT B TYPE B ;CHR$G4)i"X B ; 0*8(34).; " TO STOP. n 

498 FOR N = 1 TO 3 

588 «XT N 

5i0 GOSUB 648 

528 fl*=INKEY$:IF fl$="" THEN 528 

538 IF fl$=CHR*(13) THEN 568 

548 IF fi$=V THEN GOSUB 678 .GOTO 528 

558 IF fi$="X" THEN 1878 ELSE GOTO 528 

568 REM PRINT 12 LINES 

578 GOSUB 688 

588 PRINT896&; 

598 GOTO 528 

688 REM PRINT ft LINE 

618 GOSUB 718 

628 PRINTS "P = PHVSICflL I = INTELLECTUAL E = EMDTIONflL" 

628 RETURN 

648 CLS 

658 GOSUB 628 

668 PRINT 

678 FOR 11=1 TO 13 

688 GOSUB 718 

698 NEXT II 

788 RETURN 

718 PRINT M$(Ml);DljTftB(9); 

728 D1=D1+1 

738 IF Dl > fl(Ml) THEN Di = 1:H1=H1+1 

748 IF Ml > 12 THEN 111=1 

758 FOR 1=1 TO 51 

768 X$<I>=" " 
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778 NEXT I 

786 X$(26)=" ' " 

796 Ii=INKSIN<P/22*QQ>*25}+26 

800 I2=INT(SIN<T/28*QQ>*25)+26 

810 I2=IHT<SIN(E/22*QQ}*25H2S 

820 X*<U)="P" 

839 X$(I2)= !! E !1 

840 X*(I2)="I" 

859 IF 11=12 OR 11=12 THEN X*<I1)="*" 

860 IF 12=12 THEN X*(I2)= n *" 
870 FOR 1=1 TO 51 

880 PRINT X*<I>; 

836 NEXT I 

900 F-P+l : IF P = 23 THEN P=0 

910 E=E+i:IF E = 23 THEN E=0 

920T=T+1:IF T = 28 THEN T=8 

920 PRINT 

940 RETURN 

350 DATA 31, JAN 

960 DATA 28, FEB 

970 DATA 31, MAR 

380 DATA 20, APR 

998 DATA 21, NAY 

1000 DATA 30,JUN 

1010 DATA 21, JUL 

1020 DATA 21, AUG 

1020 DATA 20, SEP 

1040 DATA 31, OCT 

1050 DATA 20, NOV 

1060 DATA 21, DEC 

1070 END 
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LEAP FROG 
Program Listing 

18 REM THIS IS THE GAME OF LEAP FROG 
2@ REM THERE ARE 5 GREEN FROGS LABELLED 
38 REM WITH G y S AND 5 BROWN FROGS 
48 REM LABELLED WI T H B'S 

59 REM THERE IS Tl SINGLE SPACE LEFT OVER 

60 REM AND IT IS \H THE MIDDLE BETWEEN 
7 REM THE GREEN AND BROWN FROGS 

80 REM TO WIN YOU MUST MOVE ALL THE 

98 REM GREEN FROGS TO THE RIGHT SIDE AND ALL 

188 REM THE BROWN FROGS TO THE LEFT 

118 REM SET UP DIM FOR FROGS 

126 DIM A$(12) 

138 REM SET UP COUNTER 

148 C=8 

158 FOR i=lT05:A$<I>= n G !! :NEXT 

168 FOR I=7T01i:B$(I)= ,! B !i :NEKT 

178 A$(6)=" " 

188 CLS: PRINT: PRINT 

198 PRINTTHE GAME OF LEAP FROG" 

288 PRINT" B 

218 PRINT : PRINT 

228 PRINTQUR GAME STARTS OFF AS:" 

238 PRINT :PRINT ,, GGGGG".iCHR*(95); "BBBBB" 

248 PRINT :PRINT B TO WIN, YOU MUST END WITH: 11 

25A PRINT:PRINT"BBBBB";CHR$(95)i "GGGGG" 

268 PRINT :PRINT"NOTE THAT THE "iCH»(95)i"' IS THE EMPTY SPACE. 

278 PRINT :PRINT"WHAT IS YOUR MOVE (START, END)"; 

?88 INPUT S..E 

298 IF ABS(S-E»2THEN PR1NT"S0RRY, YOUR LEAP IS TOO SMALL" .GOTO 27 

388 IF fl*<S)=" "THEN 328 

f.18 IF fl*<E) O " i! THEN 358 ELSE GOTO 378 

328 PRINT ;PRINT"HEY, YOU CANNOT START YOUR LEAP WITHOUT" 

338 PRINT n A FROG, YOU HAVE GIVEN THE LOCATION OF THE" 

348 PRINT n SPACE M :GOTO 278 

150 PRINT :PRINT"HEV.. YOU MUST END YOUR LEAP ON A SPACE. " 

368 PRINT-YOU HAVE GIVEN ME THE LOCATION OF A FROG. ":GOT0278 

378 A$(E)=A$(S):A$(S)=" " 

388 D$= n " 
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396 FOR 1=1 TO 11 

466 B$=fi$(I) 

416 IF B$=" " THEN B*=CHR$<95> 

428 D$=D$+B$ 

438 NEXT 

448 PRINT:PRINT"THE CURRENT PATTERN OF FROGS IS:" 

458 PRINTDI 

468 C=C+1 

478 IF LEFT$<D&5)= n BBBBB" AND RIGHT$<D$, 5>="QGGGG B THEN 4% 

488 GOTO 278 

498 PRINT: PRINT" VOL! HAVE DONE IL IN ONLY"; & "MOVES" 

588 PRINT :PRINT"DO VOU WANT TO TRY AGAIN"; .INPUT 1$ 

510 IF LEFT$(I$,1)="V H THEN 148 

528 END 
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COMPUTERIZED HANGMAN 

This program was rewritten from the original program to in- 
clude a graphics display of the gallows and a piece by piece assembly 
of a body as shown in Fig. 2-1. Also, 50 vocabulary words are 
included. 

Pressing ENTER in response to "PICK A LETTER" will allow 
you to guess at the whole word. No penalty for a wrong guess. When 
you pick a wrong letter, it's recorded at the bottom of the display. 

PICK A LETTER? 




LETTERS GUESSED— X, Y, Z 



Fig. 2-1— As the Hangman game progresses, the body is assembled on the 
TRS-80 video display. 
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Program Listing 

19 RANDOM 

29 DIM W$(50',W(56) 

30 DIM Gs<28> 

46 REM GET yoRDS 

58 FOR 1=1 TO 56: READ Mf-<I >:!•!< I }=«: NEXT 

68 REM DRAW GALLONS 

78 CLS 

80 FOR X=6 TO 33 

98 SETCX, 6) :SET<X, 42) .SEKX, 43) ;SET<K. 44) 

180 NEXT 

110 POR Y=? TO 4i 

128 SET(G,V):SET<7,Y) 

13tf NEXT 

148 V=12.>0R X=8 TO 18 STEP 2 

158 SETCX.. V) : 3EKX+L V) : V=V-i 

168 NEXT 

179 FOR V=7 TO 11 .SET<4&Y):NEXT 

186 REM OK NOH PICK A MORD AT RANDOM 

198 I=RMD(50):IF 14(1)08 THEN 198 

288 W(I)=l.P$=W$a:':P=LEN(Pf):?l=0;Q=8 

210 REM CLEAR OUT ALREADV GUESSED LETTERS 

220 FOR J=l TO 20:G$(J)= !,i, :NEX T .Gi=0 

238 REM DRAW CHARACTER POSITIONS 

240 FOR X=413 TO 418+2* (LEN (?$)-!) STEP 2 

250 PRINTS CHR$<14); 

260 NEXT 

270 PRINTB98& "LETTERS GUESSED -";CHR$C15); .L=993 

230 A$=" ":PRINT@30, "PICK. A LETTER"; : INPUT A$ 

298 IF LEN<fl$»l THEN PRINT036, "ONE LETTER AT A TIME, PLEASE"; :GCTH 34* 

368 IF A$0' ! " THEN 368 

318 PRINTU38, "WHAT IS VOUR GUESS"; : INPUT 3* 

328 IF B$=P$ THEN 398 

338 PRINT894, "SORRY ! WRONG MORD"; 

348 FOR J=l TO 1588: NEXT 

358 PRINT&e, CHRK30); :PRINT?94,CHR$<30); :PRINT8158,CHR*(38); : GOTO 288 

368 G2=8 

370 G2=G2+1:IF G2>G1 THEN 488 

388 IF A$=G$(G2) THEN PR I NT094, "ALREADV USED"; .GOTO 340 

398 GOTO 378 

488 G$(G1)=A*:G1=G1+1 

418 J=8 

428 FOR 1=1 TO P 

438 IF m = MID*(PI, 1, 1) THEN PRINTS4i8+2*<M),fl$i T=.T+l 

440 NEXT 

458 Q=Q+ J : IF Q = P THEN 338 
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466 IF JO0 THEN 356 

478 P1=P1+1 

4€n3 IF L=998 THEN PRINT§LR$* :L=999 ELSE PRINT0L,", "iflfc :L=L+3 

499 ON PI GOTO 588,558,678,718,758,798 

588 PRINT394, "OH! OH! THERE'S YOUR HERD"; 

518 FOR X=38 TO 42 : SET <X, 12) : SET (X, 15) : NEKT 

528 SETG7, 13) : SETG3, 13) : SET(42, 13) : SET<43, 13) 

538 SETG7, 14) .SET (38,. 14) : SET (42, 14) : SET (43, 14) 

548 GOTO 348 

559 *RINT§94, "THERE'S YOUR BODY (HUMIfl, *> 

568 PRINT8158, "PUTTING ON WEIGHT?".; 

578 SET (48, 16) 

588 FOR X=36 TO 44 : SET (X, 17). NEXT 

598 SET(36, 18) :SET(44, 18) 

688 SET(37,19):5ET(43,19) 

618 SEt(38, 28); SET (42,28) 

628 SET(38,21):SET(42:21) 

638 SET (37, 22) : SET (43, 22) 

648 5ET(36,23):SET(44,23) 

658 FOR X=36 TO 44. SET (X, 24): NEXT 

668 GOTO 348 

679 PRINT094, "OOPS, THERE GOES THE RIGHT fiRH'U 

688 X=35:FOR Y=17 TO 21:5ET(X,Y):X=X-1:NEXT 

698 SET (31, 22) : SET (32, 22) 

700 GOTO 340 

718 FRINT094, "NOW THE LEFT !!!"; 

720 X=45:F0R Y=17 TO 2i:SET(X,Y):X=X+i:NEXT 

730 SET(48,22):5ET^43,22) 

~4fi QHin 140 

75& PRINT??-!: "VOTEE IN 'ROUBLE NOW 1 ", 

?m ~OR Y=25 TO 3i:3ET(38,Y %1 :NEX T 

770 SE T C3S,3i):SETC27:3i> 

780 GOTO 348 

735 ; RIN T i??4, ''GOOD-BYE, CRUEL WORLD::!"; 

308 FOR - J =25 TO 3i:3E"r(42, r>:NEXT 

310 SETC43, 3i> :5ET(44. 3i" 1 

320 PRINT9158, "THE WORD WRS ".-?*: 

338 FOR 1=1 TO 2000 NEX T 

340 'LS. FRIH T : PRINTER I NT "USN T T TR V RGRIN '' y ES OR N0 V! 

850 INPUT CI: IF C$= r YES" T HEN 30 

860 PRINT :PRINT"CHICKEN ! " : PRINT 

m FOR 1=1 TO 1008. NEXT 

oqp r:LF'pPIN T . PRINT: IF c i<2 T HEN PR:N T;; wfiY TO GC:^R T URS EXCELLENT ' GOTO 920 

in IF~?K4 THEN PRINFPRETTY GOOD! VOU'RE DOING WELL" 00 T 320 

910 PRINFTHHT WAS CLOSE, BUT YOU GOT IT" 1 

920 PRINT :F?.INT a WOULD YOU LI^E TO TRV YOUR LUCK HORIN", 
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338 GOTO 858 iig@ [sfjTfi PURPLE 

949 DRTR THUMB iiyfl DflTfl SfiNITV 

958 DATA MUSHROOM 1208 DRTR WIDOW 

96@ DATA ftMERICR 1210 ofljfl TREMENDOUS 

978 DATA COMPUTER 1229 DflTfl FflNTflSTIC 

986 DR T R T ELEVISION 1228 DATA THOUSRND 

998 DATA RTLflNTIC -1240 DflTfl WHEAT 

IHMtf DRTR GAMES 1250 DflTfl GREASE 

1910 DflTfl HOUSE 1268 DflTfl MEADOW 

iy2u yfllH PRC-IFIC 1278 DflTfl OSCILLATOR 

1038 DATA BOTTOM 1288 DATA CASSETTE 

1948 DRTR SEVERAL 1290 DATA DICTATE 

1856 DATA ORANGE 1380 DATA BLANKET 

1068 DATA CREAM Oi8 DATA MARBLE 

1978 DRTR RECEIVER 122 DflTfl PAPER 

1089 DATA INTEGRATED 1338 DATA TYPEWRITER 

1890 DRTR PRETZEL 1340 DfljR POSSIBLE 

1188 DATA VITAMIN 1358 DATA ATLAS 

1118 DATA CONTAINER 1268 DATA LINEAR 

1120 DATA DEXTROSE 1278 DATA MICROWAVE 

1128 DATA FflHILV 1388 DATA HANGMAN 

1148 DATA BASIC 1298 DATA BLINDFOLD 

1158 DATA FUNNV 1488 DATA GflLLOHS 

1168 DATA EXTREMELY 1418 DATA PLATFORM 

1178 DATA EXECUTE 1428 DATA FINANCIAL 

1438 DATA SECTION 
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YOUR CHEATING COMPUTER 
Program Listing 

18 CLS: RANDOM 

26 REM THIS PROGRAM "LEARNS" H014 T CHER 1 " 

20 REM TO USE IT JUST TYPE RUN 

^ PRINPTHIS PROGRAM LETS YOU BE A DETECTIVE. IT PICKS A LETTER" 

50 PRINT"SEQUENCE WHICH VOU MUST GUESS - ONE LETTER H T H TIME. !! 

66 PRINT :PRINT H TO MAKE THIS GAME VERY DIFFICULT. THE COMPUTER CHEATS' 

79 PRINT H ON EACH LETTER, WITH THE CHEATING A FUNCTION OF H014 WELL" 

80 PRINT a VQU DID ON THE PREVIOUS TRIES. OBVIOUSLY, THE FIRST TRV" 
90 PRINFWILL BE H0HE3 T :! 

108 READ A$ 

116 DATA ABCDEFGHIJKLMNOPQRSTUVUXYZ 

120 DIM 6*<18> 

138 REM GET A SEQUENCE OF TEN RANDOM LETTERS 

14@ mi? \=i jo ift 

158 K=RND<26> 

160 G*(I>=ttID$<fl$,K,l> 

178 NEXT 

188 REM SET UP COUNTER FOR LETTER IN PROGRESS 

196 C1=0 

208 REM "SET UP COUNTER FOR ALL LETTERS 

218 C2=8 

220 REM SET UP POINTER TO LETTER IN QUESTION 

238 L=l 

248 REM SET UP PROBABILITY 

258 P=l 

268 PRINT :PRINT"THE SEQUENCE IS SET UP FOR YOU TRIAL. THE CHANCES" 

278 PRIffTTHAT I WON'T CHEAT ARE";P*i80; ! T' 

288 PRINT:PRINT"WHAT IS YOUR GUESS"; 

298 C1=C1+1 

288 C2=C2+1 

318 INPUT T* 

320 IF LEN<T$»1 THEN 538 

338 IF T$OG$(L) THEN 458 

348 CLS: PRINT: PRINT : PRINT "OKRY - VOU GOT THIS LETTER" 

358 PRINPTHE SEQUENCE SO FAR IS n ; 

368 FOR 1=1 TO L 

378 PRINTG*(I).; 

380 NEKT 

398 PRINT 

488 P=P-P*(1/C1)/15 

418 Cl=8 
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420 L=L+1 

43@ IF D16 THEN 689 

446 GOTO 268 

450 Pi=RND<9) 

460 IF P>P1 THEN 480 

470 GOTO 580 

480 IF TOGKL) THEN 510 

490 PRINPNOPE - YOU flRE TOO LOW" 

500 GOTO 288 

510 PRINT H NOPE - YOU ARE TOO HIGH" 

520 GOTO 288 

528 PRINT-ONE LETTER AT A TIRE - TURKEY" 

540 PRINPTHIS TRY MAKES FURTHER EFFORT WORSE " 

559 IF Ci<2 Tt£N 280 

560 C1=C1-1 

579 GOTO 288 

580 IF T$>G$(L) THEN 498 
596 GOTO 510 

688 IF C2>158 THEN 728 

618 IF C2>108 THEN 786 

628 IF C2>88 THEN 688 

620 IF C2>68 THEN 668 

646 PRINT"Oft CHAMPION HAS STRUCK AGIN" 

650 GOTO 740 

668 PRINT"HEY BOSS - THIS GUY IS CHAMPIONSHIP MATERIAL" 

678 GOTO 748 

688 PRINT "PRACTICE MAKES PERFECT - KEEP GOING" 

698 GOTO 748 

788 PRINFNOT BAD FOR A BEGINNER - BUT LOUSY IF YOU PLAYED BEFORE. " 

718 GOTO 748 

728 PRINFHAVE YOU THOUGHT OF PLAYING A SIMPLER GAME - LIKE" 

728 PRINT H FIND YOUR FINGER?" 

740 PRINT 

758 PRINT-NUMBER OF TRIES", C2 

760 PRINT"PROBABILITY OF CHEATING ON ALL TRIES"; P*i88; T 

770 PRINT :PRINT"THE TOTAL SEQUENCE IS B ; 

788 FOR I = 1 TO 10 

798 PRINTGSd).; 

888 NEXT 

318 PRINT:PRINT:PRINT:PRINT U TRY AGAIN (YES/NO) "; 

828 INPUT T$ 

828 IF T$0"YES" AND TIO"NO" THEN 318 

848 IF T$= H YES H T*£N 148 

858 END 
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AUTO RALLYE 
Program Listing 

18 REM THE CAR RflLLV 

38 CLS: PRINT: PRINT: PRINT: PR1NTTHB< 15) "T H E CAR K fl L L T 

48 PRINT: PRINT -.PRINT'THIS 15 THE SUPER CAR RflLLV, THAT fit DRIVERS IN" 

58 PRINFTHE WORLD WAIT FOR. THE DRIVING IS TOUGH THIS YEAR, " 

68 PRINT"AND WE ALL WISH YOU ''GOOD LUCK'. " 

70 FOR I=1T01588:NEXT 

88 CLS : PRINT : PRINT : PRINTTflB<28>" CHOICE OF CARS":PRIHT 

98 PRINTTAB(28)"MINI (1)" 

188 PRINTTAB(28) "LOTUS (2)" 

118 PRINTTAB(20) "TRANS-AM CO" 

128 PRINTTAB<28) "FERRARI <4)" 

288 PRINT: PRINT :PRINT"REMEMBER - THE BETTER THE CAR, THE MORE GAS IT USES. n 

218 PRINT: PRINT-ENTER YOUR CHOICE OF CAR <3v NUMBER)"; 

238 INPUT CI 

248 IF Cl>4 OR CK1 THEN PRINT"INVALID CAR NUMBER, TRY AGAIN"; .G0T0238 

388 CLS: PRINT: PRINT 

318 IF N2=l THEN 358 

328 PRINPNOW CHOOSE WHICH COURSE YOU WANT TO RACE ON. THE STRAIGTHEST" 

338 PRINT-COURSE IS NUMBER 1 (BUT THIS HAS THE MOST HAZARDS). NUMBER 5" 

348 PRINPCQNSISTS MOSTLY OF TURNS AND TWISTS. ": PRINT 

358 PRINPWHICH COURSE DO YOU WANT (ENTER A NUMBER FROM 1 TO 5)"; 

368 INPUT C2 

378 IF C2>5 OR C2«".l THEN PRINT" INVALID COURSE NUMBER, TRY AGAIN. "; : GOTO 368 

428 CLS: PRINT: PRINT 

438 IF N2=l THEN 498 

448 PRINPYQU WILL NEED TO TRAVEL 5 MILES WITH . 5 GALLONS OF GAS. " 

458 PRINPYOUR STATUS WILL BE SHOWN AT 18 SECOND INTERVALS. AFTER" 

468 PRINT"EACH STATUS CHECK, YOU WILL BE ASKED FOR A NEW RATE OF GAS. " 

478 PRINT-A RATE OF 18 IS HARD ACCELERATION, AND -18 IS HARD BRAKING. " 

488 PRINT"fiNV NUMBER IN BETWEEN IS ALLOWABLE. " 

490 FOR 1=1 TO CI: READ B,M,S:B=B/10:NEKT 

530 Al=. 5 : M1=0 : Cl=Ci/2 ; V=8 • 2=8 

578 PRINT 

588 R1=8:T=8:D=8:Q1=@ 

628 PRINT-PRESENT VELOCITY = ";TABC35)V 

638 PRINT-GALLONS OF FUEL REMAINING ="; TAB(35)A1 

648 PRINT-MILES TRAVELED ="iTAB(35)Ml 

658 PRINT-TIME PASSED (SECONDS) ="jTAB(35)T 

668 PRINT :PRINT"WHAT IS YOU NEW RATE OF GAS".; 

678 INPUT G 

688 IF G<-18 OR G>18 THEN PRINT "NOT VALID - TRY AGAIN"; :G0T0678 

728 IF GO THEN 788 

738 Z=2+l 

748 IF Z<=4 THEN 798 

768 PRINT :PRINT ! DUMHV i! YOU BLEW YOUR ENGINE !!" 
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778 GOTO 1270 

788 2=0 

798 V=1HT(B*Q-M*V+V) 

308 T=T+18 

818 PRINT 

829 PRINT"ROAD CONDITIONS - \ 

838 IF V!>8 THEN 858 

846 V=8 

850 tH=Hl+V/460 

868 IF GO THEN 890 

870 fll=fll-(G*S)/5008 

875 IF H0=5 THEN 1468 

388 IF fil<0 THEN 1280 

898 IF Rl=i THEN 1856 

388 IF 01=1 THEN 938 

918 Q=INT«C2+1)*RND<X» 

928 R=INT<G.75-C2)*RND(X}) 

938 IF R>0 THEN 1290 

948 IF Q>8 THEN '1348 

958 PRINTCLEAR ftND STRAIGHT 5 ' 

968 PRINT 

978 GOTO 528 

988 H=INT(15+25aRND(X)) 

1888 IF V>H THEN 1563 
1010 p RINT "THROUGH CURVE" 
1828 PRINT 
1038 01=8 
1848 GOTO 628 
1858 E=E-(V-D>*2 
i960 IF E<8 THEN 1188 
1878 PRINT"VEHICLE "iEr 1 FEET AHEAD 15 
1888 PRINT 
1890 GOTO 628 
1188 IF V-D<5 THEN 1138 
1110 PRINT-VEHICLE PRSSED BV"; 
1128 D=V-D 

1130 PRINTDi "MPH" : PRINT 
1168 Rl=8 
1178 GOTO 628 

1188 D RINT ,! VEHICLE BEING PRSSED" 
1198 D=RND(48)+25:F0R I=1TQ580:NEXTI 

1208 PRINT :RINT"GREVH0UND BUS IN THE OTHER LANE DOING"; D; "MPH ! ! i" 
1258 PRINT :PRINT"CRRSH VELOCITV =";V+D;"! ! !" 
1268 FOR I=1T01588 :NEKTI: CIS :PRINTCHR$(23):PRINT05i8, "CRASH ! !":FQR 
1=1101580 : NEXT : CLS : PRINT : PRINT 
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1278 PRINPWHRT TYPE OF FLOWERS DO VOU WISH, RT VQUR FUNERRL ??" 

1280 GOTO 1568 

1239 PRINT !1 VEHICLE AHEAD 1806 FEET" 

O90 PRINT 

1218 D=RND<35>*Cl+25 

1320 Rl=l 

1338 GOTO 628 

1346 PRINTHARNING: CURVE RHERD" 

1350 Ql=l 

1368 PRINT: GOTO 626 

1338 PRINT-EXCELLENT - BUT WRIT" 

1390 PRIN T :FOR I=1T01888:MEXTI 

1488 PRINT-TURKEV ! ! VOU RfiN OUT OF GRS ! ! * 

1419 GOTO 1558 

1428 PRINFDON'T KNOW HOW, BUT YOU MADE IT !!" 

1438 PRINT 

1446 Rl=8 

1458 GOTO 628 

1468 PRINPTHE FINISH LINE !!" 

1478 PRINT 

1488 PRINT"VOU RRE LUCKV THIS VEflR !!" 

1498 GOTO 1568 

1588 PRINPRRE TERRIBLE" 

1518 H=H-5*Ci 

1528 PRINTH; "WRS THE SPEED THROUGH THE CURVE. " 

1538 PRINTV; "WAS VOUR SPEED. BV THE WRV, " 

1540 GOTO 1278 

1558 PRINT"YOU LERD FOOTED IfiJllfiJA (EXPLITIVE DELETED)" 

1568 PRINT :PRINT"VOU WRNT TO TRV AGAIN, RIGHT !!!!" 

1578 PRINT'ENTER 'YES' OR 'NO'"; 

1588 INPUT Rl 

1598 IF fi$="VES" MN N2=i:G0T0 1648 

1688 PRINT : PRINT-CHICKEN !!" 

1618 END 

1648 RESTORE 

1658 GOTO 218 

1668 DRTR 45, . 53, 18 

1678 DflTfl 68, . 5, 18 

1688 DRTR 78, . 41, 15 

1699 DRTR 88,. 33,13 

OTHER PROGRAMS 

The following programs included in Section I will run on a 
TRS-80 with no modifications: Guess, Math Whiz Kid Quiz, 
Comp-U -Story. 

To run the program Guess Again, change "SUBSTR" to 
"MOD$" in lines: 400, 410, and 420. 
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Appendix A 
BASIC Statements 



BASIC (Beginners' All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 
cabulary is below: 



Statement 


Example 


Definition 


CHANGE 


CHANGE N$ TO N 


assigns to the elements of N the ASCII numeric value 
of the string N$ 


DATA 


DATA 15, -8, 76,... 


the DATA statement assigns appropriate values to 
the variables listed in the READ statement 


DEF 


DEF FNR (X, Y) ■ 
(X 2 + Y 8) 


a single line function is defined by the DEF statement 


DIM 


DIM Z(3, 4) 


dimensions the elements of X as a 3 by 4 matrix 


END 


END 


ends program execution 


FNEND 


FNEND 


a multiline DEF statement must end with a FNEND 
(function end) statement 


FOR-TO 


FOR X = 2 TO 66 


defines the FOR, NEXT loop 


GOTO 


GOTO 100 


transfers execution to line 100 


GOSUB 


GOSUB 100 


transfers program control to a subroutine commen- 
cing at 100 


IF-THEN 


IF A = X THEN 100 


transfers program execution to 100 if the relational 
test is true 
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INPUT 



INPUT X, Y,... 



LET LET A = V 

NEXT NEXT X 

ON-GO TO ON M GO TO 10, 20, 30 

PRINT PRINT "LESLIE- 
RANDOMIZE RANDOMIZE 



READ 



READ L, K,. 



REM REM AREA 
RESTORE RESTORE 
RETURN RETURN 



RND 
STOP 



RND 
STOP 



assigns to the variable(s) the values presented by the 
user from a user defined device 

assigns the value of V to A 

returns control to the beginning of the FOR-TO loop 

as M ranges in values from 1 up to 1st, 2nd,.., line 
number is transferred control as follows to GO TO 
statement 

prints the alphanumeric string within quotation marks 



assures each call to the RND produces a different 
order of random numbers 



reads values from the DATA statement found in the 
same program 

remark is placed in the program to be used only 
during listing as a debugging aid 

restores the data pointer 

returns program execution to the next instruction 
following the subroutine cal 

produced a random number 
stops program execution 
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Appendix B 
Derived Functions 



The following functions which are not typical of standard BASIC 
library functions may be easily implemented by the following for- 
mulae: 

ARC SIN(X) = ATN(X/SQR(X*X + 1)) 

ARC COS(X) = ATN(X/SQR(X*X + 1)) + 1.5708 

ARC SEC(X) = ATN(SQR(X*X -1)) + (SGN(X) - 1)*1.5708 

ARC CSC(X)= ATN(1/SQR(X*X) - 1)) + (SGN(X) - 1)*1.5708 

ARC COT(X) = -ATN(X) + 1.5708 

ARC SINH(X) = LOG(X + SQR(X*X + 1)) 

ARC COSH(X) = LOG(X + SQR(X*X - 1)) 

ARC TANH(X) = LOG((l + X)/(l - X))/2 

ARC SECH(X) = LOG((SQR(X*X + 1) + 1)/X) 

ARC CSCH(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/X) 

ARC COTH(X) = LOG((X + 1/(X - l))/2 

COT(X) = 1/TAN(X) 

CSC(X) = 1/SIN(X) 

SEC(X) = l/COS(X) 

COSH(X) = (EXP(X) + EXP( - X))/2 

COTH(X) = EXP(-X)/(EXP(X) - EXP( - X))*2 + 1 

CSCH(X) = 2/(EXP(X) - EXP(-X)) 

SECH(X) = 2/EXP(X) + EXP(-X)) 

SINH(X) = (EXP(X) - EXP(-X))/2 

TANH(X) = -EXP(-X)/(EXP(X) + EXP(-X))*2 + 1 
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DIAGNOSTICS (COMMON) 

READ/RESUME, NO DATA: The user has not provided any 
DATA statements or data but has used either the READ or 
RESTORE statements. 
FOR, NO NEXT: The user has constructed a FOR-TO loop but has 

not closed it with a NEXT statement. 
UNDIMENSIONED: Variables that were being used as matrices 

were not dimensioned. 
VECTOR + ARRAY: The same variable was used both as a vec- 
tor and an array. 
VALUE OUTSIDE RANGE: A value has exceeded the bounds for 

that particular function. 
GOSUB NESTING: The user has used more levels of GOSUB 

nesting than the version of BASIC used allows. 
RETURN: A RETURN statement was executed before a GOSUB 

statement. 
DIVISION BY ZERO: Division by zero was tried. 
INVALID EXPONENT: A**B, where A<0 and B< >INT (B). 
LOG(-X): The log of a negative number was specified. 
SQR(-X): The square root of a negative number was specified. 
OUT OF DATA: The set of DATA elements has been exhausted 

and a READ statement is executed. 
ILLEGAL CONSTANT: A string (numeric) data element is read 

into a numeric (string) variable. 
FUNCTION PREVIOUSLY DEFINED: A user defined function 
(DEF statement) has been defined more than once in one pro- 
gram. 
ARRAY PREVIOUSLY DIMENSIONED: An array or a matrix 

has been defined more than once in one program. 
NO SUCH LINE#: A reference has been made to a nonexistent 

line number. 
FOR NESTING (MAX = X): Where the user has exceeded the 
maximum of nesting (where X is the maximum for that particu- 
lar version of BASIC). 
NESTING SAME INDEX: Where a user has constructed a nested 
FOR loop with two or more of the FOR-TO statements using 
the same running variable (index variable). 
WRONG NEXT: The matching NEXT statement must follow the 

corresponding FOR-TO statement. 
ILLEGAL NESTING: FOR-TO loops may be nested, but they 

must not overlap. 
OVERFLOW: A numeric constant exceeds the maximum single- 
precision floating-point value. 
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UNDERFLOW: A numeric constant is smaller than the minimum 

single-precision floating-point value. 
MEMORY EXCEEDED: The generated object code exceeds the 

bounds permitted by the computer and/or the version of 

BASIC being used. 



INCREASE PROGRAM SPEED 

1) Use GOSUB sparingly. 

2) Minimize GOTOs from one section to another section of 
the program. 

3) Check if FOR-NEXT is faster than or slower than IF- 
THEN loops. 

4) For simple integer multiplication such as 2*K,K+Kwill 
be faster. 

5) Check whether simple code is faster than or slower than 
complex expressions. 

SAVING SPACE 

To conserve space and limit the size of programs the following 
hints may be implemented. 

A) Use multiple statements per line number, if the version of 
BASIC allows. There is an overhead of about 5 bytes 
associated with each line in a program. 

B) Use integer values whenever possible as opposed to real 
numbers. 

C) Delete all unnecessary spaces from program lines. 
EXAMPLE: 

10 PRINT K, J; L 
Could be entered as 

10 PRINTKJ;L 

D) Use as few REM statements as possible. 

E) Use variables rather than constants, when the same con- 
stant is required more than a few times. 

F) A program that is one loop and is ended by either CTRL C 
or by running out of data usually does not require an END 
statement. 

G) Re-use variables over and over if possible. 

H) Use go-subs instead of repeating lines of code. 
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SPEED 

The following programs may be timed to give an indication of 
processing speed. 



10 


FOR I = 1 TO 1000 


20 


LETX = X + 1 


30 


NEXT I 


40 


PRINT X 


50 


END 



Instead of line 20 being LET X = X + 1, the user may try 20 
LETX = 10*Xor20LETX = X/10. Multiplication and division are 
fairly complex software routines. Using the above two replacements 
will give a fair indication of this type of operation speed. 
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Appendix C 
ASCII Code 



[Code 


Meaning 


00 


NUL 


01 


SOH 


02 


STX 


03 


ETX 


04 


EOT 


05 


ENQ 


06 


ACK 


07 


BEL 


08 


BS 


09 


HT 


OA 


LF 


OB 


VT 


OC 


FF 


OD 


CR 


OE 


SO 


OF 


SI 


10 


DLE 


11 


DC1 


12 


DC2 


13 


DC3 


14 


DC4 


15 


NAK 


16 


SYN 


17 


ETB 


18 


CAN 


19 


EM 


1A 


SUB 


IB 


ESC 


1C 


FS 


ID 


GS 


IE 


RS 


IF 


US 


20 
21 


(special) 


22 


» 



Comments 

null 

start of heading 

start text 

end text 

end of transmission 

enquiry 

acknowledgement 

beD 

back space 

horizontal tab 

line feed 

vertical tab 

form feed 

carriage return 

shift out 

shift in 

data link escape 

direct control 1 

direct control 2 

direct control 3 

direct control 4 

negative acknowledgement 

synchronous idle 

end of transmission block 

cancel 

end of medium 

substitute 

escape 

form separator 

group separator 

record separator 

unit separator 
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ASCII 

Hex Code Meaning Comments 

23 # 

24 $ - 

25 % - 

26 & - 
27 

28 ( 

29 ) 
2A * 
2B + 
2C 

2D 
2E 

2F / 

30 ~ 

31 1 

32 2 ~ 

33 3 ~ 

34 4 

35 5 

36 6 " 

37 7 ~ 

38 8 ~ 

39 9 " 



3A 

3B : 

3C > 

3D 

3E < 

3F ■> 

40 <g> 

41 A 

42 B 

43 C 

44 D 

45 E 

46 F 

47 G 

48 H 

49 I 
4A J 
4B K 
4C L 
4D M 
4E N 
4F 

50 p 

51 Q 

52 R 

53 S 

54 T 

55 U 

56 V 

57 W 

58 X 

59 Y 
5A Z 
5B T 
5C > 
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ASCII 

Hex Code Meaning Comments 

5D 1 

5E J 

5F j 

60 A - 

61 a 

62 b 

63 c 

64 d 

65 e 

66 f 

67 g 

68 h 

69 i 
6A j 
6B k 
6C l 
6D 
6E 
6F 
70 
71 
72 



73 s 

74 t 

75 u 

76 v 

77 w 

78 x 

79 y 
7A z 
7B { 
7C | 
7D } 
7E 

7F DEL 
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Appendix C 

Hexadecimal- Decimal 
Integer Conversion 



The following table provides for direct conversions 
between hexadecimal integers in the range 0-FFF and 
decimal integers in the range 0-4095. For conversion of larger 
integers, the table values may be added to the following 
figures: 



Hexadecimal 


Decimal 


Hexadecimal 


Decimal 


01 000 


4 096 


20 000 


131 072 


02 000 


8 192 


30 000 


196 608 


03 000 


12 288 


40 000 


262 144 


04 000 


16 384 


50 000 


327 680 


05 000 


20 480 


60 000 


393 216 


06 000 


24 576 


70 000 


458 752 


07 000 


28 672 


80 000 


524 288 


08 000 


32 768 


90 000 


589 824 


09 000 


36 864 


A0 000 


655 360 


0A00O 


40 960 


BO 000 


720 896 


OB 000 


45 056 


CO 000 


786 432 


OCOOO 


49 152 


DO 000 


851 968 


0D000 


53 248 


EOOOO 


917 504 


0E000 


57 344 


FOOOO 


983 040 


OF 000 


61 440 


100 000 


1 048 576 


10 000 


65 536 


200 000 


2 097 152 


11 000 


69 632 


300 000 


3 145 728 


12 000 


73 728 


400 000 


4 194 304 


13 000 


77 824 


500 000 


5 242 880 


14 000 


81 920 


600 000 


6 291 456 


15 000 


86 016 


700 000 


7 340 032 


16 000 


90 112 


800 000 


8 388 608 


17 000 


94 208 


900 000 


9 437 184 


18 000 


98 304 


AOOOOO 


10 485 760 


19000 


102 400 


BOO 000 


1 1 534 336 


1A000 


106 496 


COO 000 


12 582 912 


IB 000 


110 592 


DOOOOO 


13 631 488 


1C000 


114 688 


EOOOOO 


14 680 064 


ID 000 


118 784 


FOOOOO 


15 728 640 


IE 000 


122 880 


1 000 000 


16 777 216 


IF 000 


126 976 


2 000 000 


-33 554 432 
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01 



8 



cc 

UJ 
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Appendix E 

Standard Logic Symbols 



POSITIVE OR 




Boolean logic: 

D=A+B+C 
Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 





1 








1 


1 


1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



POSITIVE EXCLUSIVE OR 
B H } — D 




Boolean logic: 

D =ABC+ABC+ABC 
Truth table: 



A 


B 


c 


D 











1 


1 














1 








1 


1 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



NEGATIVE OR 




Boolean logic: 

D = A+ B+C 
Truth table: 



A B 



NEGATIVE EXCLUSIVE OR 




Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 



A 


B 


c 


D 











1 


1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 


1 
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POSITIVE NOR 




NEGATIVE NOR 



Boolean logic: 



D = 


A + B + C 


Truth table: 


A 


B 


c 


D 











1 


1 














1 








1 


1 














1 





1 





1 





j 1 


1 


1 


1 


1 


o 




Boolean logic: 



D=A+B+C 
Truth table: 



POSITIVE EXCLUSIVE NOR 



A B C D 



1 1 



11°. 



NEGATIVE EXCLUSIVE NOR 




Boolean logic: 

D = ABC + ABC + 
ABC + ABC + ABC 
(ABC + AB + AC + BC) 

Truth table: 




A 


B 


c 


D 











1 


1 














1 








1 


1 





1 








1 





1 





1 


1 


|1 


1 


1 


1 I 1 


1 


1 



Boolean logic: 

D = ABC + ABC + 

ABC + ABC + ABC 

(ABC + AB + AC + BC) 
Truth table: 



A 


B 


C 


D 














1 














1 








1 


1 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 
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POSITIVE AND 




Boolean logic: 

D = ABC 
Truth table: 



NEGATIVE AND 




A 


B 


c 


D 














1 














1 








1 


1 














1 





1 





1 








1 


1 





1 


1 


1 







POSITIVE INCLUSIVE AND 

A- 
B- 
C- 

Boolean logic: 

D = ABC + ABC + 
ABC + ABC + ABC 

(ABC + AB + AC + BC) 
Truth table: 



A 


B 


c 


D 











1 


1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 


1 



Boolean logic: 
D=ABC 

Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 





1 








1 


1 


1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



NEGATIVE INCLUSIVE AND 




Boolean logic: 

D = ABC + ABC + 
ABC + ABC + ABC 

(ABC + AB + AC + BC) 

Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 
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POSITIVE NAND 




Boolean logic: 

D = ABC 
Truth table: 



A 


B 


c 


D 











1 


1 








1 





1 





1 


1 


1 





1 








1 





1 





1 


1 


oh 


1 


1 


1 1 1 


1|0 



NEGATIVE NAND 




Boolean logic: 

D = ABC 
Truth table: 



A 


B 


c 


D 











1 


1 














1 








1 


1 














1 





1 





1 








1 


1 





1 


1 


1 






POSITIVE INCLUSIVE NAND 




Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 



NEGATIVE INCLUSIVE NAND 




A 


B 


c 


D 














1 














1 








1 


1 





1 








1 





1 





1 


1 


1 


1 


1 


1 1 1 


1 






Boolean logic: 

D = ABC + ABC + ABC 
Truth table: 



A 


B 


c 


D 











1 


1 














1 








1 


1 





1 








1 





1 





1 


1 


o M 


1 


1 


1 


1 


1 


1 
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POSITIVE ODD PARITY 




Boolean logic: 

D= ABC + ABC + ABC + ABC 
Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 


1 



NEGATIVE ODD PARITY 



>— D 




Boolean logic: 

D = ABC + ABC + ABC + ABC 
Truth table: 



A 


B 


c 


D 














1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 


1 



POSITIVE EVEN PARITY 



NEGATIVE EVEN PARITY 



B— | P 

c- 




Boolean logic: 

D = ABC + ABC + ABC + ABC 
Truth table: 



Boolean logic: 

D = ABC + ABC+ ABC+ ABC 
Truth table: 



A 


B 


c 


D 











1 


1 














1 








1 


1 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 






A 


B 


c 


D 











1 


1 














1 








1 


1 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 






246 



POSITIVE MAJORITY 




Boolean logic: 

D= AB + AC + BC 
Truth table: 



A 


B 


c 


D 














1 














1 








1 


1 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



NEGATIVE MINORITY 




D — D 



Boolean logic: 
D --= AB + AC + BC 
Truth table: 



A 


B 


c 


D 














1 














1 








1 


i 





1 








1 





1 





1 


1 





1 


1 


1 


1 


1 


1 


1 



POSITIVE NOT MAJORITY 



>— D 




Boolean logic: 



D * AB + AC +BC 



Truth table: 



A 


B 


c 


D 











1 


1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 






NEGATIVE NOT MINORITY 



— D 




Boolean logic: 



D = AB + AC + BC 



Truth table: 



A 


B 


c 


D 











1 


1 








1 





1 





1 


1 


1 














1 


1 


1 





1 








1 


1 





1 


1 


1 
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POSITIVE INVERTER 




Boolean logic: 

D = A 
Truth table: 



A 


D" 



1 


1 




NEGATIVE INVERTER 



A— O 




Boolean logic: 
D=A 

Truth table: 



A 


D 




1 


1 




POSITIVE BUFFER 




Boolean logic: 

D=A 
Truth table: 



A 


D 



1 



1 



NEGATIVE BUFFER 



A — C 




Boolean logic: 
D = A 

Truth table: 



A 


D 



1 



1 
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Appendix F 
Common Number Systems 



Common Number Systems. 



Decimal 


Binary 


BCD 


Octal 


Excess- 3 BCD 


Hexadecimal 





00000 


0000 





0011 





1 


00001 


0001 


1 


0100 


1 


2 


00010 


0010 


2 


0101 


2 


3 


00011 


0011 


3 


0110 


3 


4 


00100 


0100 


4 


0111 


4 


5 


00101 


0101 


5 


1000 


5 


6 


00110 


0110 


6 


1001 


6 


7 


00111 


0111 


7 


1010 


7 


8 


01000 


1000 


10 


1011 


8 


9 


01001 


1001 


11 


1100 


9 


10 


01010 


0001 0000 


12 


0001 0011 


A 


11 


01011 


0001 0001 


13 


0001 0100 


B 


12 


01100 


0001 0010 


14 


0001 0101 


C 


13 


01101 


0001 0011 


15 


0001 0110 


D 


14 


01110 


0001 0100 


16 


0001 0111 


E 


15 


01111 


0001 0101 


17 


0001 1000 


F 


16 


10000 


0001 0110 


20 


0001 1100 


10 
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Index 





A 




L 


Art Graphics 
ASCII Code 
Auto Rallye 




172 

227 

154, 217t 


Leap Frog 129, 209t 
Love That Printer Graphics 178 




B 




M 


BASIC Statements 

Biorhythm 

Bomb Disposal Squad 


221 
77, 206t 
69, 204t 


Math Whiz Kid Quiz 109 
Mouse Hunt 44, 194t 



Capture the Alien 50, 196f 

Common Number Systems 249 

Comp-U-Story 150 

Computer Craps 1 65 

Computerized Hangman 135, 21 1 1 



Plot Your 4 Equations 92 

Plot Your 10 Equations 97 

Polar Graphic Subroutine 102 



D 

Decisions! Decisions! 
Derived Functions 

G 


159 
223 


Ship in the Water 
Sink the Bismark 
Standard Logic Symbols 
Star Warp 
Sub Hunt 


29, 

56, 
17, 


118 
191t 

242 
198t 
188t 


Guess 
Guess Again 

H 


82 
86 


W 

Wumpus 


11, 


183t 


Hexadecimal-Decimal 
Interger Conversion 


230 


Y 

Your Cheating Computer 


142, 


21 5t 



Note: A t by a page number indicates an adapatation for TRS-80/PET®. 
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A Note to the Reader 

As a convenience, we are making 12 of the computer 
game programs in this book available on a single 
cassette tape suitable for use with the Radio Shack 
TRS-80 microcomputer. The tape includes every- 
thing required to play the 12 games in TRS-80 Level 
II BASIC. 

The tape is perfect for loading into the computer 
from any cassette tape player via the CLOAD com- 
mand used in the TRS-80, and it serves as a conve- 
nient and permanent storage medium for the games. 

One TAB TAPE contains all 12 of the game 
programs written for the TRS-80, and is priced at 
only $9.95, postpaid. (Two tapes ordered at one time 
cost only $18.95.) To order, simply send your remit- 
tance and order to TAB BOOKS, Blue Ridge Sum- 
mit, PA 17214. 



•mm 



• STAR WARP 

• BOMB DISPOSAL SQUAD 

• SINK THE BISMARK! 

• SUB HUNT 

• WUMPUS (MAZE & 

TUNNELS) 

• CAPTURE THE ALIEN 

• COMPUTER CRAPS 

• BIORYTHM 

• LOVE THAT PRINTER 

GRAPHICS 

• YOUR CHEATING 

COMPUTER 

• GUESS 

• LEAP FROG (CHECKERS) 

• AUTO RALLYE 

• COMPUTERIZED HANGMAN 

• COMP-U-STORY 

• MATH WHIZ KID QUIZ 

• ART GRAPHICS 

• DECISIONS! DECISIONS! 

• SHIP IN THE WATER 

• GUESS AGAIN! or SON 

OF A GUESS! 

• POLAR GRAPHIC 

SUBROUTINE 

• PLOT YOUR 4 EQUATIONS 

• PLOT YOUR 10 EQUATIONS 

• MOUSE HUNT 



Here is a unique collection of challeng- 
ing and enjoyable games which can be 
played on microcomputers as well as on 
larger machines. All the items listed at left 
are included; they're designed to improve 
your reaction, calculation ability, logical 
reasoning, the use of mathematical ideas, 
and for just plain fun! 

Each game is written in BASIC and is 
accompanied by a detailed description and a 
complete flow chart to make it easy for even 
a beginner to run it. 

Ken Tracton is the author of several 
previous TAB computer games books as 
well as others on electronic circuitry. 
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